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EDITORIAL 


Chers amis, 


Rien à signaler d'important ce mois-ci. La vie a 
repris son cours normal, certaines choses se 
stabilisent. L'Assemblée Générale est pour bientôt, 
et les nouveaux adhérents continuent à arriver. 


Je profite de ce calme relatif pour remercier ici 
tous ceux qui aident à faire le journal, par leurs 
articles, leur bonne volonté, leurs suggestions. 
Sans vous, PPC Paris ne serait pas ce qu'il est. 
Soyez-en remerciés, encore une fois, et continuez 
dans cette voie ! 


Du coté de Corvallis, rien de neuf. Aucune nouvelle 
machine de poche, ni périphérique. L'imprimante à 
laser (3500 $), et les séries 200 ne rentrent pas 
dans le cadre de nos activités, si intéressants 
soient ces nouveaux matériels ! 


Du coté d'Evry, les disquettes HP IL arrivent bientôt 
et seront peut-être déjà en vente lorsque vous lirez 
ces lignes. L'imprimante à Jet d'encre, "ThinkJet", 
connaît un succès comparable à ses performances. 

La bibliothèque des utilisateurs (UPLE) sera peut- 
être reprise par un groupe à vocation commerciale. 
Nous vous tiendrons bien entendu informés. 


Vous pouvez donc dormir sur vos deux oreilles, après 


avoir fait une bonne lecture ... 


Pour le Bureau, 


Pierre DAVID. 





PFPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous le savez peut étre déjà, FFC PARIS se réunit une 
fois par mois, en plein coeur de Faris. Amenez votre 
matériel, votre bonne volonté et vos idées !  Flus vous en 
apporterez, et plus vous en trouverez chez vos collëégues de 
FFC. Ces réunions se déroulent de manière très libre, aucun 
ordre du jour, discussion qu autre n'étant imposé. Un 
membre du Bureau est toujours présent, Ainsi, Si vous 
désirez remettre votre article tout frais au journal, si 
VOUS avez des suggestions à faire, si vous voulez vous 
procurer des anciens numéros de JFC, ce Sera en principe 
toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul instant 
venez nous rejoindre tous les premiers samedi de chaque 
mois. au CENTRE DE JEUNESSE ET DE LOISIRS JEAN VERDIER 

di, rue de Lancry 

73010 PARIS 
Et en montant au deuxième étage, vous entendrez des éclats 
de rire et des discussions passionnées vers la salle Z15. 
Attention, toutefois, de venir entre lé et 19h. 


Four l'accès en métro, trois possibilités s'offrent à vous 

à Savoirs 

Métro Strasbourg St Denise: sortie Forte St Martin / Bld St 
Denis, coté pairs. 

Métro Républiques sortie Eld St Martin, coté pairs. 

Métro J. Bonsergent: Sortie Eld Magenta, coté impairs. 


Ah, j'oubliais: JPC est distribué en avant-première lors 
de ces réunions ..… À bon entendeur Salut ! 


Les dates des prochaines réunions sonts (1éh-15h) 
— Le Samedi Z% Novembre 1984 
— Le Samedi 1 Decembre 1984 
— Le Samedi 5 Janvier 1985 


À Bientot.,., 
Fierre DAVID 
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NOUS EN AVONS 


Sont en vente au club: 


Cartes magnétique au prix de 150FF les 50 cartes + 3,10 de port. 

Eproms (2716 et 2732) vierges au prix de 55FF + 3,10FF de port pièce. 
Pour les Eproms programmées, nous consulter. 

Convertisseurs HPIL (82166A) + 3,10FF de port . Livrés avec connecteur 
et manuel. 

Le MLDL Hollandais (société ERAMCO) au prix de 3860FF + port. 24k Eprom 
et 8k RAM de microcodes. Delai de 1 à 2 mois. 

Pour les commandes de la ZENROM et de la CCDROM, le prix de souscription 
est de 1000FF, envoyez nous SO0FF minimum d'arrhes. La ROM PANAME peut 
être commandée auprés de Jean-Jacques Dhenin. 

Le VASM (listing commenté par HP des 3 premières pages de la 41) au 
prix de 150FF + 13,50FF de port 

Le manuel de service de la 41 au prix de SOFF + 6,50FF de port. 

Le manuel technique du convertisseur au prix de 20FF + 3,10 de port. 
Les anciens numéros au prix de: 

n°1 à 3 au prix de 15FF + 3,10FF de port pièce, 

n°4 à 10 au prix de 20FF + 3,10FF de port pièce, 

à partir du n°11 au prix de 25FF + 3,10FF de port pièce, 

le numéro 18 est au prix de 35FF + 3,10FF de port. 


Les ports sont donnés en non urgent. En cas de port urgent, comptez 
5,00FF à la place de 3,20FF; 10,70FF à la place de 6,50 et 17,90FF 
à la place de 13,50FF. 


ACHATS GROUPES 


Nous avons des commandes groupées en route pour ceux qui désirent que 
nous tentions d'avoir des prix spéciaux. Faîtes nous vos propositions 
et donnez nous des promesses fermes si possibles avec arrhes. 

En ce moment, nous avons une commande de modules FORTH/ASS pour HP71B 
et une commande de module CCDROM. 


PROCHAINES REUNIONS 


Sauf contre-ordre de dernière minute, les prohaines réunions se dérouleront 
les samedis 3 novembre et 1 décembre de 16 à 19heure au centre de 

jeunesse Jean Verdier, 11 rue de Lancry, Paris 10°. Toutes les 

personnes inte ressées sont les bienvenues (membres des clubs PPC 

Paris et Toulouse et indépendants). 

Notre assemblée générale est toujours prévue pour bientôt, mais nous 
cherchons toujours une salle pour un dimanche. Le bureau attend vos 
propositions. Lors de cette réunion, seront nommés 3 nouveaux 

secrétaires et un comptable. Faites nous savoir votre désir de faire 
partie des membres du bureau. 
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Mr Daniel CONNAN Nouveau au club, j'èspère y trouver laso- 
152 Avenue Jean Jaurès lution de quelques problèmes qui se posent 
93500 PANTIN. à MOie 
Voilà : pour me distraire, j'ai une HP 15C 
qui a succédé à une HP 34C, et bien entendu, 
je suis à la recherche de programmes pouvant s'y intégrer. 

J'ai déjà la collection de tous les classiques, nombres premiers, 
catendrier, jeux divers, suites, enfin, tout ce que j'ai pu adapter en 
compilant autour de moi. 

J'ai aussi, oeuvre plus personnelle, un programme de calcul des 
coefficients de Nicomaque à 5 chiffres, alors que dans l'Ordinateur de 
Poche, il n'y avait que trois chiffres, et pas de mode de calcul. J'ai 
en 200 pas et quelques, un programme calculant les coefficients de 
Fourier pour 12 valeurs de X, programme que j'ai adapté avec des for- 
mules copiées à droite et à gauche, et. dont j'ai vérifié le bon fonc- 
tionnement avec les chiffres du programme Séries de Fourier du module 
MATHS de la T.I. 58. 

C'est dire que si je me suis inscrit chez vous dans l'espoir d'a- 
voir la solution de mes problèmes,( minimes par comparaison à ce que 
je lis dans J.P.C.), je puis aussi en échange apporter quelques pro- 
grammes ne figurant pas dans les parutions"grand public", bien que 
tel la plus belle fille du monde, je ne puis apporter que ce que j'ai. 

Donc, j'en suis làt je cherche à adapter de Science et Vie 
un programme de calcul de PI en multiprécision prévu pour HP 67 et 
HP 41, c'est dire qu'il ne manque pas grand chose, mais ce peu de 
chose je ne le trouve pas, et j'aimerais le trouver dans une rubrique 
intitulée soit SOS ( qui existe déjà,) soit " la langue au chat". 

Toujours dans Science et Vie, j'ai pu adapter un prosramme de 
nombres premiers d'après HP 41, mais curieusement pas celui prévu pour 
HP 34C. 

Autre possibilité que j'aimerais trouver au club: pouvoir se 
grouper à plusieurs pour se payer des leçons ou des "consultations!" de 
mathématiques, car par exemple pour les séries de Fourier,une fois les 
coefficients calculés, je ne sais pas quoi en faire! je suppose qu'ils 
donnent la "“formule”d'une fonction périodique, mais encore? Je suis 
aussi intéressé par la recherche de formules poÿfles courbes, je connais 
déjà la régression linéaire(pas courbe)! les régressions logarithmique, 
exPonentielle, et fonction puissance, que l'on trouve partout. J'ai 
aussi mis sur pied avec les matrices HP 150 une régression polynômiale 
de degré 6, pas de la programmation,propprement dite, mais en modë 
de calcul manuel. 

Je me rappelle avoir vu dans un livre que j'ai perdu,des formules 
de régression pour toutes sortes de courbes, et j'aimerais faire des 
programmes en calculant les coefficients , si cela en vaut la peine, 
je rachèterai le livre. 

Voilà à peu près où j'en suis. Dans JPC de Sept. 84 vous déplorez 
que les HP 15cistes soient silenéieux, de mon côté je déplore le peu 
de littérature publiée pour cette intéressante machine. Je suis bien 
entendu intéressé par la HP #1, mais je ne me lancerai que quend j'au- 
rai attein& les limites de la HP12C, ce qui n'est pas encore le cas. 

Donc à bientôt lors d'une réunion,'"pow voir"! 


Amicalement +: Daniel CONNAN. 
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REVUE DE L'ASSOCIATION X Y ” 


Présentation du stage 


FRANÇAISE DE TOPOGRAPHIE 


Juin 1984 - Numéro 19 


Topographie et dessin automatique ____ 


ar Yves ALACOUANINE 


Depuis plusieurs années Y. Alajouanine intervient 
dans des stages sur la saisie des observations de 
topométrie moderne, dans le cadre de la formation 
continue organisée par la “Fédération Compac*ioni- 
que des Métiers du Bâtiment”, 11, rue Charles 
Richard, 69003 Lyon. Il est possible d'obtenir une 
attestation de présence à ce stage effectué avec une 
convention de formation continue, permettant à 
l'employeur d'avoir le remboursement du prix du 
stage et des frais de voyage du participant. 


Le tarif journalier des deux stages À et B de 8 heu- 
res est de 300 F TTC pius 200 F TTC de frais de docu- 
mentation et de location d'équipement de calculateur 
électronique durant 1 ou 2 jours, au bureau d'Y. Ala- 
jouanine. La participation est réduite à trois géomè- 
tres au maximum par journée, organisée après une 
concertation personnalisée préalable les vendredis et 
/ ou samedis (jours non fériés). Le déjeuner est pris 
au frais du participant dans une cafétéria voisine. 


Le public concerné par ces stages comprend les 
géomètres chef de brigade tachéométrique, connais- 
sant les méthodes des levers urbains au ruban, et 
ayant des notions de traitement informatique appli- 
qué à la topographie. Les personnes sachant pro- 
grammer sur calculateur HP-41 peuvent assister seu- 
lement au stage B pour étudier directement la con- 
ception de la Saisie d'Observations de Topométrie 
Moderne, et Logiciel de Tracer Automatique Direct. 
il faut savoir établir un croquis de lever, et l'interpré- 
ter en dessinant le plan topographique correspon- 
dant. 


L'objectif poursuivi est l'enseignement d'habitudes 
professionnelies qui transposent les méthodes topo- 
graphiques traditionnelles françaises avec les 
moyens modernes offerts par les mesures éiectroni- 
ques très précises et rapides des angles des distances 
et leur enregistrement sur mémoires vives sur le ter- 
rain pour élaborer directement le plan levé grâce à 
des systèmes informatiques offrant un excellent rap- 
port qualité/prix. Par la suppression de l'élaboration 
manuelle de la minute et du calque, le prix de revient 
d'un plan topographique baisse de 30 %. 

La particularité pédagogique est l'enseignement 
assisté par ordinateur : le programme de Saisie des 
Observations de Topométrie Moderne (S.O.T.M.) 
adresse des messages d'instruction lorsque l'opéra- 
teur géomètre s'écarte du processus normal de sai- 
sie, ou que les mesures introduites pour lever un 


point détermine une configuration impossible, détec- 
tée par le HP-41. La saisie controlée des observations 
facilite l'entraînement du géornètre aux nouvelles 
habitudes à prendre pour devenir rapidement opéra- 
tionnel. Après une courte période de pratique atten- 
tive de la méthode S.O.T.M., le topographe peut tra- 
vailler d'une manière réflexe, même en pensant à 
autre chose sans risque : le système le remet en 
bonne voie si besoin. 


Les moyens mis en œuvre comprennent la docu- 
mentation et les logiciels qui sont remis, et les équi- 
pements informatiques utilisés, prétés ou possédés 
par le stagiaire {calculateur HP-41CV avec module X 
fonctions). 


Le matériel d'origine HP-41CV est suffisant pour 
l'enseignement et les travaux pratiques avec un nom- 
bre réduit de points saisis. L'équipement profession- 
nel utilisé en stage comprend le modèle ‘’HP-41 
DEVELOPMENT’ disposant d'une saisie devenue 
fiable d'un nombre illimité de points. L'introduction 
automatique directe des données (matricule, deux 
angles et distance oblique) est possible en s'interta- 
cant sur un tachéomètre enregistreur. Le calculateur 
HP-41 est placé quand il fait froid dans un sachet 
thermostaté fixé au trépied : un câble le relie au 
tachéomètre. Sur le terrain deux HP-41 peuvent si- 
multanément enregistrer les mesures : l'opérateur au 
tachéomètre saisit les deux angles et la distance, etle 
chef de brigade consigne les autres observations 
(hauteur de pointé et les décalages éventuels). Grâce 
à la numérotation identique dans les 2 HP-41 pour le 
même point levé, une seule bande magnétique est 
obtenue. Au bureau l'information enregistrée sur le 
système HP-41, est transférée sur un microcalcula- 
teur graphique SANYO MBC 1250 au moyen d'un in- 
terface HP convertisseur 82164 commercialisé depuis 
Septembre 1983. Cet article a été attendu, avant de 
créer le stage Topographie et Dessin Automatique 
pour diffuser le programme Saisie des Observations 
de Topométrie Moderne utilisable sur le terrain. Le 
Logiciel de Tracer Automatique Direct est en cours 
de développement ; il est normalement employé au 
bureau en vue de l'élaboration interactive du dessin 
sur l'écran graphique du SANYO, à partir de f'infor- 
mation provenant du système HP-41 avec SOTM. ii 
est possibe de modifier le plan en transférant des 
informations numériques et des instructions graphi- 
ques mises à jour, à l'ordinateur de bureau. 


Le logiciel ‘‘S.O.T.M."”" de saisie des observations 
de topométrie moderne est concu en langage ma- 
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… COLLOQUE D'ORLÉANS 


chine HP-41 disposant d'un nombre très important 
de fonctions placées dans des modules enfichables 
spécifiques (horloge entrées/sorties, extension de 
fonctions, fonctions graphiques, lecteur - en- 
registreur de cartes magnétiques, IL-DEVEL, etc...). 
Ces possibilités indispensables n'existent pas dans 
les autres calculateurs de poche. 

La mémoire centrale du calculateur HP-41CV com- 
prend 319 registres soit 319 x 7 = 2233 octets. 72 re- 
gistres sont utilisés pour les observations numériques 
(6), les instructions graphiques (2}, les constantes, 
les résultats intermédiaires ou définitifs, et les valeurs 
M (x y z) Matricule numérique, abscisse, ordonnée et 
altitude au sol des divers points topométriques inter- 
venants (P Q A B C D et stations S). 

Le programme occupe 247 registres répartis entre 
la routine utilitaire fixant 212 registres, et la routine 
d'application utilisant le reste de la mémoire centrale 
soit 35 registres. Un code lié au matricule du point 
levé ou du travail effectué commute la routine 
d'application adéquate : 

— sous-programme d'instructions au logiciel de tra- 
cer automatique direct 

— lever tachéométrique avec décalage rectangulaire 
ou polaire 

— intersection M (xyz)} au théodolite avec un aligne- 
ment PQ ou AB 

— détermination M (xyz) bipolaire par les distances 
AM et BM 

— détermination M {xyz) par abscisse oblique CM et 
quasi-ordonnée MM' 

— détermination M (xyz}) par variation de gisement 
QP,PM et distance PM. 

Le point Q précède dans l'ordre du lever le dernier 
point P traité. Les méthodes ci-dessus servent en 
lever topographique, et en conception assistée sur 
ordinateur pour des projets techniques ou artisti- 
ques. Les routines précédentes peuvent se trouver 
en extension de mémoires de masse dans un module 
JV 82189 E logé dans le port 1 du HP 41 DEVELOP- 
MENT préservé d'une perte de mémoire (MEMORY 
LOST) fortuite ou volontaire. Les autres routines 
d'application de travail effectué concernent : 

— polygonation réversible : calculs (xyz) et compen- 
sation 

— relèvement {(xyz) : compensation (nombre illimité 
de points utilisés) 

— station libre (xyz) : compensation (nbre illimité de 
points utilisés) 

— implantation tachéométrique d’un point | (xyz) mis 
en mémoire de masse. 


Les routines ci-dessus sont mises en module JV 
82180 au port ? du HP-41, par le géomètre devant les 
utiliser sur le terrain. Au bureau elles sont transférées 
depuis l'unité de cassette grâce au code d'application 
lié au matricule du travail concerné. 


Le traitement est déclenché par l'opérateur en 
pressant les deux touches {(XEQ) (LN). Le numéro 
matricule M du point mesuré est complété par trois 
chiffres décimaux C D U sous la forme M, CDU. C 
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commute l'application de la méthode de lever utili- 
sée. Après les calculs le HP-41CV indique les valeurs 
suivantes : Mp Xp Yp Zp Gab MaMb Gdp DP et PQ, 
où P représente le dernier point mesuré, Q le point 
précédent, Gab le gisement d'un vecteur directeur 
AB désigné par les matricules accolés MaMb ; Gdp et 
DP sont le gisement et la distance horizontale du vec- 
teur DP où D est un pôle fixe ; la distance horizontale 
PQ entre les points levés successifs peut servir de 
contrôle sur le terrain, avant de mesurer le point sui- 
vant. 


Le gisement Gab du vecteur directeur ÂB oriente 
les macro-dessins codés demandés dans les registres 
de saisie d'instructions graphiques. 

En dehors de la tachéométrie, le lever d’un nouveau 
point part de deux points E et F déjà connus en XYZ, 
représentant deux points différents disponibles en 
mémoire centrale c’est-à-dire À, B, C, D, P, Q,S. 
Tous ces points sont déjà connus par leurs matricu- 
les, coordonnées XY et altitude Z sol, S la station 
tachéométrique ayant aussi son gisement GS de 
l'azimut zéro et l'altitude d'appareil ZaS. Ces points 
sont mis spécialement en mémoire pendant le lever 
topographique au moment de leur création, sur carte 
magnétique ou mieux dans un module triple JV 
82180 logé dans le port 1 du HP-41CV. L'opérateur 
géomètre peut récupérer ces points conservés un par 
un en les affectant en mémoire centrale en point À, 
B, C, D, P, QouS. L'enregistrement des points con- 
servés peut s'utiliser par exemple pour contrôler la 
position d’un point matérialisé introduit en P ; il 
s'appelle Q après traitement des observations faites 
pour le redéterminer : le HP 41 indique le vecteur PQ 
écart de position. Dans le code décimal CDU, D com- 
mute en fin de traitement les points E F en deux 
points différents P, Q, À, B, C, D ou S. Il indique 
encore si l'altitude sol Zp calculée doit être annulée. 
La lettre U du code décimal précise si les distances 
mesurées au ruban sont horizontales ou obliques ; 
elle désigne aussi le symbole isotrope centré sur cha- 
que point levé en report automatique sur écran où 
traceur. 


Les 16 registres 00 à 15 reçoivent l'affectation sui- 
vante : 
00 RT référence du travail et NB numéro de bloc 
d'enregistrement, 
01 M CDU matricule du point à mesurer « 99999, 
code d'application, 
06 à 07 six registres de mesures élémentaires pour le 
point à lever, 
08 et 09 deux registres d'instructions graphiques de 
tracer automatique, 
10 NB et Mp matricule du dernier point traité (et 
enregistré) 
11 à 13 abscisse Xp, ordonnée Yp et altitude sol Zp 
du point précédent P, 
14 RT référence du travail et Gab gisement du vec- 
teur directeur AB, 
15 MaMb matricules AB en lever, sinon RA (réf. Rou- 
tine d'Application). 


… COLLOQUE D'ORLÉANS 


L'enregistrement des données et des résultats se 
produit avant la fin du traitement de chaque point 
levé, suivant le choix du géomètre : 

— Sur carte magnétique, saisie des 16 registres 00 à 
15, 

— dans l'unité de cassette, saisie des 16 registres 00 
à 15 (1100 points), 

— en module triple autonome JV 82180 CM permet- 
tant une saisie illimitée. 


Cette dernière solution utilise le modèle HP-41 
DEVELOPMENT, facilitant son emploi professionnel 
sur le terrain : la machine sans enregistreur de carte 
magnétique ni câble de liaison, est enfermée dans un 
sac incolore souple en polyéthylène rendu étanche 
par une bande amovible Péloplastic autocollante. 
Celle-ci permet l'échange du module JV 82180 CM 
quand il est saturé. Le même module est réutilisable 
après transfert des données sur l'unité de cassette 
connectée sur l'allume cigare du véhicule de la bri- 
gade topographique. 

La saisie sur module peut réduire le nombre de 
registres employés pour un point en fonction de 
l'organisation du travail en aval suivant : 


— report automatique : registres 10 à 13 (Mp Xp Yp 
et Zp) 
— dessin automatique direct : registres 08 à 15 pour 
programme ‘‘LTAD”. 

Le contenu numérique des registres 00 à 15 peut 
s'exprimer en base 0-255 ce qui réduit 2,3 fois l'infor- 
mation, soit à 7 registres en théorie. 


Le dessin est élaboré sur calculateur électronique 
avec écran graphique au moyen du Logiciel de Tracer 
Automatique Direct "L.T.A.D.”, avec les données 
transférées depuis le système de saisie HP-41 ayant 
pratiqué la Saisie des Observations de Topométrie 
Moderne ‘’S.O.T.M.". 

Le programme est en BASIC 80 MICROSOFT sur 
système d'exploitation CP/M. Il est transposable 
entre les nombreux modèles de micro-ordinateurs qui 
utilisent ces caractéristiques techniques, connectés à 
des périphériques divers : traceur automatique, digi- 
taliseur, imprimante, reproduction de l'écran sur 
papier (hard-copy). 

Le géomètre équipé uniquement du système 
HP-41 DEVELOPMENT peut envoyer à une société 
de service informatique ayant les matériels et logiciel 
qui conviennent, une micro-cassette HP 82176 À 
(source ou copie) et faire élaborer le plan. Au vu du 
hard-copy envoyé au géomètre, celui-ci peut deman- 
der le dessin automatique ; éventuellement il peut 
retourner mise à jour, la micro-cassette pour obtenir 
un plan correct. 

Cette procédure est rentable : le clavier du micro- 
ordinateur est très peu utilisé, en libérant celui-ci de 
la saisie et du calcul! des points de détails, et des pro- 
cédures à dactyiographier pour dessiner ke plan. 





Les instructions graphiques reçues du système HP 
41 DEVELOPMENT + SOTM sont interprétées et 
äppliquées par le système SANYO MBC 1250 + 
LTAD en fonction de leur affectation à des points 
déjà connus grâce à la routine d'application TA, ou à 
des points en cours de lever en remplissant deux 
registres 8 et 9 baptisés INF1 et INF2 exploités de la 
manière suivante : 

— les codes graphiques sont des nombres positifs 
inférieurs à 1 avec 1, 8, 5, ou 9 décimales, définissant 
des macro-dessins. 

— les processus ont des codes graphiques de 1 à 4 
paires de décimales constituant 90 sous-codes que le 
géomètre connaît facilement. 

Les protessus enchaînent dans l'ordre de jonction 
de dessin les points présentés dans l’ordre convena- 
ble par les routines d'application TA de Tracer Auto- 
matique, ou par la succession de points levés ordon- 
nés en une ou plusieurs séquences. 

Le départ d'un processus est repéré par le matri- 
cule du point concerné lu en registre 10 ; il est défini 
par les registres 8 à 9 avec INF1 et INF2 où les codes 
graphiques sont inférieurs à 1. Si le point de départ 
est levé, la jonction par le point levé suivant figure à 
l'enregistrement de celui-ci. Si le point initial est 
connu, la routine TA de Tracer Automatique place le 
matricule du nouveau point connu relié dans un des 
registres disponibles à la suite 11, 12, etc... ; sauf si 
les codes graphiques varient en cours de processus 
en INF1 et INF2 modifiés dans l'enregistrement du 
bloc suivant. 

La fin d’un processus par exemple se reconnaît par 
l'adjonction du code graphique terminal 98 ou 97 
ordonnant respectivement la fin du tracer avec où 
sans retour au point initiai. 

La reprise d'un processus par Un point connu où 
levé se reconnaît par un code graphique supérieur à 
1 :il est additionné au matricule du point où le pro- 
cessus concerné avait été interrompu Ainsi le dessin 
assisté sur ordinateur laisse l'utilisateur libre de créer 
dans n'importe quel ordre des points reliés immédia- 
tement automatiquement, ou en différé en énumé- 
rant la séquence des matricules à relier. En fait le 
topographe lève un plan comme s'il dessinait à 
l'échelle 1/1 sur le terrain, au lieu d'appliquer au 
bureau sur la minute son croquis de lever. 

Le rôle de celui-ci est maintenant de contrôler le des- 
sin sur l'écran. 


La forme du stage est concertée à la demande du 
groupe de stagiaires de motivations compatibles sur 
des sujets spécialisés de topographie et de dessin 
automatique. 


L'évolution du stage est marquée par la diversifica- 
tion dans les travaux pratiques en cours de dévelop- 
pement : métrologie dimensionnelle en génie méca- 
nique, et représentation correcte des formes en cour- 
bes de niveau du terrain naturel ou d'objets artificiels. 
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RPN: 


: BG — BJ - COMMENT CA MARCHE 


: ARRACHEMENT DES ANCRAGES DANS LE BETON 
: MONSTRES ET DONJONS 


: RENAME, RENOME LES FICHIER DU XFCT 
: BOU, BOURSE ET INVESTISSEMENTS 


LE PETIT THEATRE DES MICROCODES: 


: ROUTINE COUNT 


DUR ET MOU: 


LA 41 MENE GRAND TRAIN 


(BERNARD MORRISSEAU) 
(PHILIPPE DAVASE) 

(JEAN-CLAUDE BECKER) 
(CHRISTIAN JEGOUZO) 
(CHRISTIAN JEGOUZO) 


(DANIEL JACOB) 


(JEAN-CLAUDE BECKER) 
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Tout d'abord qu'est-ce qu'un BG ? C'est toute fonction synthétique 
de deux octets dont le premier est F7 Hexadécimal. 


Pour comprendre son foctionnement ,il est nécessaire de voir tout 
d'abord ce qui se passe quand on introduit un programme au clavier. 
La première touche pressée en mode Prg. ( à l'exception de la 
touche jaune ou d'une touche préfix ) insère un nouveau bloc de 7 
octets ,nuls au départ, dont les trois derniers sont remplis par le 
*END final (C00029 ) frontière bien connue du domaine d'Alice,les 
premiers par la fonction introduite. 

À la suite de la séquence : GTO.. LBLO1 par exemple,le programme 
se présentera comme À . Si l'on frappe ensuite RCL 25 + ces deux 
lignes prog. prendront la place des trois octets restant libres. 


O1 LBL O1 02 O1 LBL O1 O1 LBL O1 02 
02 RCL 25 02 RCL 25 90 


03 + 
. END 


@ 


Toute nouvelle instruction introduite 
provquera l'insertion d'un nouveau bloc de 
7 octets. Si par exemple on introduit ABS 
on obtient 


Le compactage de la mémoire Prog. ——— 
consiste à écraser les octets nuls inutiles,faisant remonter dans 
la mémoire les instructions suivantes. 


Prenons maintenant le prog. suivant que nous supposerons com- 
pacté 
O1 LBL "7" CO 00 F2 00 59] Soit le BG F7 41 ( 247 65 ,65 
02 RCL IND 17 90 91 étant le code de la lettre A ) 
03 RDN 75 affecté à la touche LN. 
Faisons USER GTO.91 LN 


Nous introduisons donc une nouvelle ligne 02 provoquant ainsi 
l'insertion de 7 octets nuls dont 2 seront remplis par les deux octets 
F7 et 41 . Or F7 est le premier octet d'une ligne de texte de 7 
caractères,donc irstruction de 8 octets.pour seulement 7 emplacements 
libres . Le premier octet de l'instruction suivante,ici l'octet 90 
de l' ex ligne 2,sera donc "absorbée" (ou bouffé suivant l'expression 
consacrée . Nous aurons de ce fait : 

CIN ÉBEI ZE CO O0 F2 00 59 

02 T A-7-"-90 F7 O0 41 G0 06 00 00 90 

03 STOM 91 75 


Le mode d'action du BJ ( ou byte jumper ou cric ) première en 
date de toutes les fonctions synthétiques découverte et origine 
de la P.S est encore plus subtile. 
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Qu'est-ce qu'un BJ ? C'est toute fonction synthétique dont le 
premier demi-octet est F hexa affectée à une touche, 

Contrairement au BG, le BJ est utilisé en mode calcul 

L'écriture d'un texte dans le reg. alpha ne peut se faire en mode 
calcul qu'en mode alpha . .L'envoi du nibble F au microprocesseur ne 
se fait normalement que lors de l'exécution d'un progr. lors de la 
lecture d'une ligne de texte. .11 a pour effet : 

1° de lire dans le prgn. le demi-octet sur lequel est positionné 
le pointeur pour déterminer le nombre de caractères à lire (dans le 
progr. 

2° de transférer le nombre correspondant de caractères dans le 
registre alpha. 

3° de déplacer du mème nombre d'octets le pointeur progr. 


He . : Prgm. 
01 Rs PAU 1e: PEOQP SUMANE Si nous faisons|GTO .002 


O2 ABCDEF  F6414243444546 le pointeur se place sur le 
dernier demi-octet de la 
ligne O1 soit 4 .La ligne 02 
est alors visualisée sur l'écran. 


Passons en mode calcul et et pressons la touche BJ. On envoie alors 
un F au microprocesseur qui,comme s'il était entrain d'exécuter un 
progr.,lit le demi-octet courant soit 4,charge les octets F6 41 42 43 
(T ABC ) dans le reg. alpha et déplace le pointeur sur le code 43 . 


En repassant en mode progr. ,le système affiche l'instruction de 
code 44 soi X< Y? . Si au lieu de RCL 04 on avait l'instruction RCLO1 
(ou STU 01 ou 1) le pointeur se déplacerait de 1 octet au lieu de 4 
et c'est l'instruction de code 41 soit - qui serait affichée. 

Jusqu'à présent le progr. n'a pas été modifié, de sorte que si 
l'on fait BST puis SST on retrouve  ABCDEF. 

Mais si,quand le code - est affiché on appuie sur la touche 
d'effacement,on s'aperçoit en lisant le Prgm que la ligne 02 est 
devenue T -BCDEF , le code de la lettre À ayant été remplacé par un nul 

Si au lieu d'effacer le À on avait avai tapé RCL 05 la ligne 2 
serait devenueTA%BCDE- l'octet 25 hexa, code de RCL 05 et du carac- 
tère * s'insérant entre le À et le B. Le code du F repoussé de la 
ligne de texte constitue une nouvelle ligne 03 X£Y . 

Le BJ peut donc ètre utilisé : 
1° Pour placer le pointeur sur l'octet voulu d'une ligne progr.La 

ligne en question doit ètre précédée d'une ligne ‘controleur" 

dont le dernier demi-octet correpond à la position souhaitée 

du pointeur. 

29 Ceci permet ensuite,en mode progr. d'insérer de nouveaux octets, 
d'en mettre à zéro certains, soit pour les remplacer par des 
nuls,soit pour les remplacer par d'autres. 

Je n'entrerai pas ici dans la description détaillée des manipulations 

possibles,la plus courante,exposée dans l'ouvrage de Wickes utilisant 

le controleur ST0 O1 suivie d'une ligne de texte de deux caractéres 
dénommée "générateur" 

Le Bj a perdu beaucoup de son intérèt du fait de la découverte du 
BG. Il reste cependant fort utile pour la création de chaines de 
caractères non disponibles au clavier et en particulier d'octets nuls. 

Vous remarquerez d'après les définitions qui précèdent que tout 

G ( il en existe de nombreuses variantes ) est aussi un BJ alors que 
l'inverse n'est pas vrai.ll en résulte qu'il n'est pas nécessaire 
d'affecter chacune des deux fonctions à une touche,le BG pouvant ètre 
utilisé en tant que tel en mode Prg. et en tant que BJ en mode calcul. 


Bernard Morisseau 
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PHILIPPE DAVASE 
PPC PC n° 67 
78500 SARTROUVILLE 


Ci-joint un petit programme sur HP41CV pour le calcul 
des ancrages dans le béton. Le programme permet de connaître 


soit: 
1°) la profondeur d'ancrage, la force d'arrachement 
étant connue; 
2°) la force d'arrachement, la profondeur étant 
connue. 
Bonne programmation à tous 
ANCRAGES NOYES VISE 
RE 


een: 
a 





ARRACHEMENT DES ANCRAGES DANS LE BETON 
a —— 2 ——> > == DETUN 


Les granulométrie et dosage des bétons ainsi que la mise 
en oeuvre de ceux-ci peuvent intervenir dans les contraintes du 
cisaillement. 


Afin d'obtenir des résultats présentant toute sécurité, 
nous avons considéré un cône d'arrachement et non un un tronc 
de cône. La contrainte de cisaillement est admise à 5 kgs/cm? 


Nous obtenons ainsi un ordre de grandeur de la traction 
maximum à laquelle un ancrage peut être soumis. 


14:34 49/25 
Al+LBi “ANCRAGE" 21 GTO A1 


82 FIR 1 22 GTO *P” 
83 "UNITE=KG-CM-  236LBL F 
84 PROMPT 24 ENTERT 
BS “£c=3KG/cM2" 25 « 

86 PROMPT 26 14,7 


Be “ANGL.FROT.BET* 27 * 

88 “+= 37 DES è8 “FORCE=" 
43 PROMPT 29 ARCL à 
18 “ENTRER F OÙ P= 34 PROMPT 
11 “+ OÙ 8 SI NUL" 31 GTO 81 





12 PROMPT 324LBL “P* 

13618 Ai 33 14,7 

14 "PROFONDEUR?" 34 

SORT 
K I1 peut se détacher autour Le se . ee 
IR de chaque ancrage un cône 17 ET F 37 ARCL X 
d'angle au sommet fixé par 18 “FORCE 2° 38 PRONPT 
NN le coefficient de frottement 19 PROMPT 39 CTO 8 

interne du béton, soit f-0,75. 5g ÿ-gn 48 END 


f: tgx= 0,75; d'où = 379 
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Exemple: Angle au sommet: 74° 





11 vient alors: (fig. 3) 

Surface latérale du cône cisaillé: S- R1 
tg = 0,75 cos = 0,8 

R = 40 x tg = 40 x 0,75 = 30cm 

40 40 


= =. 50 
1 cos 0,8 50 en 





















S = 3,14 x 30 x 50 = 4710 cm2 









Effort maximum d'arrachement: 4.710 x 5 = 23.550 k . 
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ANCRAGE 


êet 


ARTE EEEEEEEEUUUEnEEnEnnnnnneennnnnnnennnnnnnnntntn 
EEE EntEEnnnUtrrrnnnnnnnnnnntnnun 
TEEN EEEEnUUERNenEEnUnnnnEennnrEnnnlnnnnennnnennnnnnn 
EE EEEnnnEEnnnnnEEnnnnttnnnnnnnnnnntnnutIEnE 
EEE eennEEnnnnnnEeEnnennnnnnnnnnnnnnnnlnnnnntntunl 
TEE nnnnnEerrEEnnnnnnnrnnnnnnnnrnnnntl 
 TNEEEEUEEEEEnEEnEnUeEEnrnnnennnennnnnnnnnnnnnnunnunl 
EAN EAEEnnNEEEnnneUnrnnnnennnnnnnnEnnnnnnrnnnunl 
EEE EEEnnnnlEnEnnnnEnnneanEnnnnnnnnnnnuunnunt 
= ARRETE EEnnEnEEnnttnnnnnnnnnnnnnnnnnnuttnnunl 
= AEENNEENEEENENEEEnUEEEnEnnnnnnnnnnnnntnnunn 

e AREEETEEERNEEEEENEREUEENUEREEEEnEEnEUnUEUEnenUtnnnnnunInnIEU 
MERE EEEEREEREEEEEUUURNUURANEEnUlEnEEnUrnnUlennnnnnnnnInl 
= MEEMNRUNEUENEANENEEEEEEEEnnnennnnunnnnnnnnnnnnnIn 
rer nee nn ennennn entente ne enenennnunnnnl 
er EE een tUr tenue tUt ru ntrrnnEennnEUeeEn Une Ennnunnuuuann 
DRTEERENT Un RUE NUE URNENUIEUIIEUUIRURE 
vtr rater eee nee unnttettUneeennnnneUnnnUnnnunt 
DUREE Etre enr annee tutrunrannnuuunnuruan 

$ Aer Etre uureern terne rnnennnnnnannrrernnnunnnurtIn 
ù VERRE UEUEE een EEUEUTenEnUEUEnEUUnnUnnnUlnUUUUUUNE 
S ARREEUTEEEUEEnnnEEnnn 


1 


1 


1 


1 


1 


15 


16 


17 


18 


19 


2 


2 


2 
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MONSTRES ET DONJONS (deuxième partie) 


Dans JPC N°9 de décembre 1983 (que le temps passe vite...) 





j'avais publié un programme de mini jeu de rôle appelé MONSTRFS 


ET DONJONS en vous promettant pour "prochainement" la mé- 
thode pour construire vos propres terrains. 
Malheureusement, j'ai f#té quelque peu perturhé, d'abord 
par la préparation du SICOP qui à occupé tous mes loisirs, 
et ensuite par une maladie qui a fait de même 
Mais tout arrive à PPC PARIS, pour ceux qui savent atten- 
dre, et voici, en vous priant de m'excuser du retard, la 
suite de mon article. 


Le codage du terrain est réalisé sur deux grilles style 
mots croisés de format 12 X 12 chacune.(cf figure 1 ) 

La première grille indique la nature du terrain(route, 
marais, rivière, ..+). Chaqune des 144 cases de lagrille 
correspond à une zone précise du terrain codée par une let 
tre. Pour savoir où on se trouve, il suffit d'aller lire 
cette lettre, d'y ajouter le symbole %X (multiplication ) 
et d'exécuter le sous prosramme ayant ce label. 

EXEMPLE: pour le terrain A: si vous êtes en x=5; y=4; 
en vous reportant à la grille terrain ,vous trouvez une 
lettre "M", Pour savoir où vous êtes et ce qui se passe, 
il suffit alors de faire " XFO Mn", 

La deuxième grille indique les directions autorisées 
pour sortir de la case occupée, au tour suivant.Cette 
grille se superpose exactement à la précédente, et s'uti- 
lise de la même façon, le label du sous programme étant 
toutefois codé sur un seul caractère. 

Dans l'exemple précédent, après avoir trouvé la nature 
du terrain, il faut se reporter à la case x=5; y=4 de la 
grille déplacements. Là, on lit un "Y", on fait "XFOQ y" 
et on apprend que l'on peut se déplacer dans les 4 direc- 
tionse 

Pour fabriquer votre propre terrain, vous devez donc 
preparer trois grilles 12 X 12: 

Dans la première, vous dessinez le terrain lui-même, 

Dans la deuxième, vous placez dans chaque case la let- 
tre code de la zone;vous obtenez ainsi douze chaînes de 
douze caractères que vous stockez dans les registres de 
la 41, par groupes de 6 caractères. (du registre #@ pour 
la première moitié de la chaîne du bas au registre 23 
pour la deuxième moitié de la chaîne du haut)}.(cf figure 1) 

Remarques:on stocke d'abord la première moitié de tontes 
les chaînes; et il y a un décalace entre les numérotations 
des cases et des registres. 

Vous faites exactement de même avec les directions pour 
la troisième grille (à stocker dans les registres 24 à 47) 

N'oubliez pas maintenant de tout enregistrer en mémoire 
de masse, et si vou avez créé des terrains intéressants. 

envoyez les au journal, que tout le monde en profite. 


MONSTRUEUSEMENT VOTRE 
Jean-Claude BECKER 


JPC 
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ARR ERYS 
V2 o 

3 3 > à Âo 
Porn TH SÇRRS(É 


si 


+ 
Fun GRILLE DU 
TERRAIN 
des registres memoires 


FIGURE N° 1 


FIGURE N° 2: 
LABELS DES GRILLE DES 
DEPLACEMENTS DEPLACEMENTE 
NoaD 


CT EJ BR] ET KJ EJ HE K 


ouesr est. 


UE AQRAQUNE 


suD 


P.S, La version étendue de 12 Ko que j'avais annoncé se porte 
bien, merci pour elle: j'en suis déjà à 32 Ko Je pense la termi. 
ner pour le printemps prochain.(Elle fonctionne déjà , certains 
ont pu en apprécier des extraits.).Elle nécessitera au minimum 
une 41 /319 REG. +TIME + X=-FONCTIONS + LECTEUR DE CASSETTES, 
La présence d'un ou deux X-MEM et d'un 1/0 pourront accélérer 
la partie . Je pense diffuser ce jeu sous forme d'une cassette 
toute prête avec un manuel et des grilles d'assignations,mais 
nous en reparlerons plus tard... 
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ligne 53 
ligne 96 
ligne 98 
ligne 99 






Adresse 
OBF 
OBE 
OBD 
OBC 
OBB 
OBA 


en hexa,. 















Explications 


RENAME 


« 


Utilisation : XEQ RENAME 


puis R/S 


Messages : F. ABSENT si fichier absent de la mémoire étendue 
F. RENOMME si prise en compte du nouveau nom 


Lignes synthétiques 
nains one eme ee e ee 


: 245,32,0,0,0,0 
: 247,32,0,0,0,0, 
: 248,127,28,0,1, 
: RCL N 





Structure X-F 







W D = © pointeur 





( ligne 53 à 60 ) 


0,2 = F7.20.00.00.00.00.00.02 


1 


: Renomme les fichiers du X-Functions 


Ce pgm renomme les fichiers de la mémoire étendue en travaillant 
directement dans cette mémoire par déplacement du rideau.( reg. c ) 

11 n'utilise aucun registre de donnée. Un fichier DATA de 2 registres doit 
se trouver en tête de la mémoire étendue ( appelé ici D ). La configuration 
est identique à l'utilisation de XEDIT, S et R. 


NOM,SURNOM ? 


Entrer NOM ( fichier dont on veut changer le nom }) 
SURNOM ( nouveau nom ) séparé par une virgule. 


, 
0 


La longueur LLL du fichier D étendu est connu par (362-EMDIR) et transformation 
La ligne 96 permet de reconfigurer la mémoire étendue donc LLL=002. 
Le principe du programme est le suivant : 


Etendre la mémoire à 1 fichier D type DATA 
2° Comparer le nom du fichier Fn : si égalité avec NOM,remplacer par SURNOM 


3° Sinon reconfigurer la mémoire et ajouter la taille de Fn (FLSIZE ) au 
pointeur de registres + 2 (pour les regs d'entête). 
Aller en 1° 


La ligne 43 dépend de la configuration de la machine. 
X-F + 1 X-Memory = 362 registres 


Le listing a été imprimé par le PLOTTER 7470A de Bruno Tredez. 
Quelques lignes sont modifiées : X0? pour X#0? aux lignes 23 et 39. 

La ligne 127 est TONE P ( 159, 120 ) 

A la suite de RENAME, on trouve "b-D'" et "D-b" qui sont des pgms de 
conversion ( dont je ne suis pas l'auteur ). Le tout tient sur 3 pistes. 


























F5.20.00.00.00.00 







5,11,224,192 = F8.7F.1C.00.01.69.0B.E0.C0 


11 faut placer le rideau en OBE pour avoir accés au 
registre qui contient le type et la longueur du fichier 
D, d'où la modification du reg c. 


1C 00 01 69 OB EO CO 
xx mans bonne) 
cte reg . 


= 00 











Valeur à stocker en OBE: 20 00 00 00 00 OL LL 












reconfigurer la mémoire et fin. 
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BOU : BOURSE & INVESTISSEMENTS 


Ce programme s'adressent surtout aux membres qui s'interessent à la 
bourse, et notamment à ceux qui possédent des obligations. 
Les différentes options permettent 
: d'introduire le pair d'une obligation ( valeur nominale du titre ) 
: de calculer la valeur du coupon (intéret) connaissant le taux 
: de calculer le taux connaissant le montant du coupon 
: de calculer le taux équivalent d'un placement 
: de calculer le rendement d'un placement en % et le capital final 
au moment du remboursement de l'obligation 
: de calculer la valeur du coupon courru et donc la valeur de l'obligation 
gn cours d'années. 


culer Je capital final d'un placement en fonction du taux, 
des versements et de la durée. 


H : efface le pgm et réassigne les affectations. 
Utilisation : 


Initialiser le pgm par XEQ BOU qui sauvegarde temporairement les registres 
e et + pour utiliser les labels locaux. ( XEQ S et XEQ R peuvent être 
supprimés ). Le programme fait 448 octets, fonctionne en SIZE 002 avec 
TIME et X-FUNCTIONS. 


Exemple d'utilisation pour les obligations : 


Vous avez acheté 2 obligations à 13,9 % dont le pair est 5000 FRS. 
La date de jouissance du coupon ( date de détachement ) est fixée au 
ler juillet de chaque année. La durée de l'emprunt est 10 ans. 


XEQ BOU — PAIR ? 5000 R/S TAUX 13,9 R/S ‘COUPON 695.00" 

XEQ D =» CAP. INIT ? R/S CAP. FIN ? R/S DUREE ?- 10 ans R/S MT.EQ. 9.107" 
ceci signifie que sur 10 ans, sans réinvestir les coupons, vous 
obtenez un taux de rendement équivalent TEQ de 9.10% annuel. 

( caisse d'épargne 6.57% !! ) 


XEQ E —+ DUREE ? 10 R/S "GAIN 239.007" R/S Nb ? 2 obligations R/S 
"CAP. 23900.00" 


XEQ F —+ DETACH ? 1.07 R/S DATE ? 31.071984 (r/s si date d'aujourd'hui) R/S 
"COUP. 1.147" R/S COTE ? 102 (en % donnée dans les pages bourse 
des journaux) R/S FRAIS R/S (si 0%) "VAL 103.14Z" R/S "5157.12 FRS" 


Si vous voulez acheter (frais>0) ou vendre (frais<0) une 
obligation le 31 juillet, sa valeur théorique est 5157.12 FRS 


( hors frais de banque ) 


Autres exemples : 


acement 


XEQ D —æ CAP INIT ? 100 R/S CAP. FIN. 112 R/S DUREE ? 2 R/S 
L,80 5,632" 


= yous_ san tn FES pente 2 semestres et récupérez 112 FRS. Quel est 


— 100 FRS vous rapportent 21.67 FRS au bout de 5 mois. T.EQ ? 


XEQ D —æ CAP INIT ? 100 R/S CAP FIN ? 121.67 R/S DUREE ? 5 R/S T.EQ 4.007 
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Plan Epargne Logement 


00 FRS. Vous versez une prime mensuelle de 
intéret annuel est de 97. Les 
iode=12 ), 


DUREE ? 60 R/s "45040.47 FRS" 


Le nombre de période à utiliser est le suivant : 
année=1 Semestre=2 trimestre=4 mois=12 semaine= 52 et jour=365 


Ce programme ne prétend pas être rigoureux dans la fa 
intérets puisque bien souvent 








LBL'R SAVEX J'utilise S et R dans mon index au début de la mémoire 
SF 00 CLX Programme. Ils permettent de Sauvegarder temporairement 
LBL'S SF 27 les registres e et # dans le fichier data D pour 

TD RTN utiliser les labels locaux. S restitue les 2 registres. 
0 LBL 00 

SEEKPTA GETX 

FS?C 00 STO + 

GTO 00 GETX 

XOH STO e 

SAVEX CF 27 ÉONNE; JS 

: se JÉGOUZO Ch. KP 82) 

X<>e RTN 





TJ; Pise. que pour C 
D 17 










WW} ” + 
NT nt) 
j ; ” 
Q . 
. 
| 
A 
, 





S&&R 
SR 
3 


sus 
EE 
ENS 


î 
< 


: 
3 


x 


SETE UR 


BREREBERIEULER 
RER 
NT 


N)S8898 
Ba3Rgnar" 


CLA 


SF 25 

CLX 

FLSIZE 

FC? 25 

GTO 08 

2 

+ 

+ 

GTO 05 
9SLBL 06 
96 ” »” 
S7LBL 01° 
98 REE \ 
100 RCL C 
101 Xe © 
102 XeY 
103 STO 00 
104 RON 
105 Xe © 
106 RON 
107 RTN 
108LBL 04 
109 "+" 
110 DSE X 
111 GTO D4 
112 RTN 
113L8L 07 
114 CLX 
115 SEEKPT 
116 GETX 
117 RP 
118 SEEKPT 
119 X<>Y 
120 SAVEX 
121 "F. RENOMME" 
122 SF 25 
123L8L 06 
124 FC? 25 
125 "F. ABSENT" 
126 AVIEW 
127 TONE * 
128 XEQ 06 
129 CLA 
130 CLST 
131 STOP 
132 STOP 
133LBL "b-D" 
134 0 
135L8L 00 
136 ATOX 
137 X=0? 
138 GTO 01 
139 55 
140 - 
1417 
142 X<Y? 
143 CLX 
144 + 
145 X<>Y 
146 R? 
147 » 
148 + 
149 GTO 00 
150LBL 01 
151 + 
152 STOP 
153 STOP 
154LBL "D" 
155 CLA 
156 STO Z 
157 X<Y 
156LBL 00 
159 ENTER” 
160 Rf 
161 ST/ Z 
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«429  D6.09 
OIiLBL “Bou” 
D2 XEQ "s” 
03 FIX 2 

04 SF 27 

05 DMY 
O6LBL À 

07 “PAIR ?" 
D8 PROMPT 
D9 STO 00 
10LBL 8 

11 "TAUX ?”" 
12 PROMPT 
13 E2 

14 / 

15 STO 01 

16 RCL 00 
17 # 

18 "COUPON ” 
19 ARCL X 
2D PROMPT 

21 GTO B 
22L8L C 

23 “COUPON ?” 
24 PROMPT 


35 “CAP INIT ?" 
36 PROMPT 


5q 
des 


BBEN 


ai'A 


BRSGGÈERESBSS 
j'AËSS 
8 


R 
8 


R 


142 XEQ 20 
143 E2 

144 - 

145 LASTX 
146 / 

147 RCL O0 
148 » 

148 LASTX 
150 + 

151 XE0 21 
152 GTO F 
1S3LBL G 

154 “CAP INIT ?” 
155 PROMPT 
156 STD 00 
157 “PRIME ?” 
158 PROMPT 
159 STO C2 
160 “TAUX ?° 
161 PROMPT 
162 E 

163 / 

154 


EE 
% 3 & x 3 Z + + m0 +" 
RS LOS LT 
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LEBRSERLER 


ét‘ norte 
+8 


"RÉ 
8 N 


92 
83 
94 
85 
86 
87 
s8 
8g 


F8 
sRns 


8 
R 
1 





Chers amis, 


La routine que nous allons voir aujourd'hui, a plus un intérêt 


d'apprentissage. Effectivement, elle ne sert pas à grand-chose. 
mais peut vous en apprendre sur ce vaste programme qu'est le 


microcode. 


Quand vous lancez la fonction "COUNT!! 


, la machine affiche: " M 1" 


, 


Si vous pressez la touche "TAN", vous avez un système de comptage qui 
se met en route, et un 'TONE" se fait entendre. En pressant les 
autres touches, vous pourrez remarquer que seulement un petit 


nombre d'entre elles sont valides. 


E62B 994 “7” 
E68C GBE “N” 

E68D 615 “Ur 

E68E G9F “D” 

C68F 893 “C” 

E698 3C1 

E691 @E8 ?NCXQ 2CFR 
E692 38) 

E623 41C ?NCXG G7EF 
E694 629 " ” 

E695 828 " ” 

E69€ @2E *." 

E697 F2“ 

E698 giF “_" 

E699 BIF “_" 

69e 21F “_" 

E69B' 138 REHD 4(L) 
E69C 3F8 RERD !5(e) 
EEOD 62E E=8 ALL 

E69r 388 SETF @ 

E62: 268 SETHEX 

E6AR 384 CLRF 1 

E6fi 3C8 CLRKEY 

E6n? 3CC ?KEY 

cts 3FE JNC E6n? -81 
Eédé 84E C=6 ALL 

E6AS 228 C=KEY K* 
E6n6 63€ RCR 3 

E6N7 186 A=C SX 

E6n8 138 LOI SEK 

E6h9 413 

E6NA 366 ?A#C SEX 
E6AB 1E3 JNC E6E7 #3 
LéiC 136 LDI SEX 

E6AD @C3 

E6NE 366 ?A#C SX 
E6AF 673 JNC E6BD #8E 
E6BB 266 C=C-1 S&x 
EL 266 ?A#C SEX 
EëB2 862 JNC E6BF +8) 
E6B3 266 C=C-1 SE 
E6R4 366 7A#C SEX 
E6B5 833 JNC E6BB +46 
E6B6 266 C=C-1 SEX 
E6P7 366 ?f2C SEX 
E6RE 34F IC E6A1 -17 


E6B9 288 SETF 2 

E6BA 81B JHC E6BD +63 
E6BB 288 SETF 2 

E6BC B1B JNC E6BF +863 
E6BD 388 SETF i 

E6BE 853 JNC E6C6 +4f 
E6BF 139 LDI Sxx 

E6CE 685 

E6C1 33C "RER ! 

E6C2 138 LDI SX 

E6C3 899 

E6C4 2FC RER 13 

E6C5 186 A=C S&k 

E6C6 326 ?A(B SEX 
E6C7 107 JC E6E7 +28 
E6C8 623 JNC E6CC +84 
E6C9 8F3 JNC E6E7 +iE 
E6CA 3AB JNC E6BF -8B 
E6CB 23 JNC E69F -2C 
E6CC 28 SETDEC 

E6CD 138 RERD 4(L) 
E6CE 3F8 REAR 15(e) 
E6CF 3F8 READ 15e) 
E6D& 3F8 READ 15e) 
E6Di 380 ?FSET | 

E6D2 C3 JNC E6ER +18 
E6D3 38C ?FS5ET 8 

E6N4 @9F JC EGE7 +13 
E6DS 8E6 C<2B SEX 
E6D6 266 C=C-1 S&x 
E6D7 81F JC EGDA +83 
E6D8 8E6 CC)B S&x 
E6D9 8B3 JNC E6EF +16 
E6DA 84E C=6 ALL 

E6DB GE6 CC2B SEX 
E6DC 138 LOI S&x 

E6DD 8iF 

E6DE 43€ RCR 3 

E6DF 134 LRI Sex 

E6E8 G1F 

E6E1 83C RCR 3 

E6E2 138 LI S&x 

E6E3 @1F 

E6E4 823 JNC E6ES +4 
E6ES 32B JNC E6CA -1B 
E6E6 32B JHC E6CB -1E 


E6E7 14B JNC E718 +29 
E6E6 388 SETF 8 

E6E9 8EB JHC E7B6 +1 
E6ER 38€ ?FSET 8 

E6EB 827 JC E6EF +84 
E6EC BE6 CB 58x 
E6ED 226 C=C+i SEX 
E6EE BE6 CC)B SEX 
E6EF 384 CLRF 8 

E6FA GER SLCT @ 

E6F1 39C R= @ 

E6F2 8EE CB ALL 
E6F3 23C RCR 2 

E6F4 BEE C<2B ALL 
E6F5 138 LOI Stx 
E6F6 838 

E6F7 BC2 C=B ER 

E6F8 83C RER 3 

E6F9 8EE C<)B ALL 
E6FA 2FC RER 13 

E6FB 8EE C<)B ALL 
E6FC 138 LDI S&x 
E6FD 838 

E6FE @C2 C=B €R 

E6FF 83C RCR 3 

E7@8 8EE C{)B ALL 
E781 2FC RER 13 

E?82 8EE C<)B ALL 
E783 138 LDI Stx 
E784 838 

E785 8C2 C=B ER 

E766 3A8 HRIT 14(d) 
E787 1BC RER 11 

E788 3A8 HRIT 14(d) 
E789 1BC RER ii 

E78R 3A8 HRIT i4(d) 
E7@B 138 READ 4(L) 
E78C 138 READ 4(L) 
E78D 823 JNC E71i +84 
E78E 2BB JNC E6ES -259 


E?0F 2BB JNC E6E6 -29° 


E718 15B JNC E73B +2B 
E711 28€ ?FSET 2 

E712 GIF JC E715 +83 
E713 261 

E714 088 ?HCXQ 8498 


JPC 


E715 398 C=ST XP 
E716 878 N=C ALL 
E717 138 LDI Stx 
E718 825 

E719 38) 

E71R 858 ?NCXQ 16E3 
E71B 8B8 C=N ALL 
E71C 358 ST=C XP 
E71D 2A8 SETDEC 

E71E 28C 7FSET 2 
E71F 383 JNC E78F -18 
E728 G4E C=8 ALL 
E721 136 LDI Stx 
E722 087 

E723 1BC RCR 11 

E7è4 138 LDI Sëx 
E725 812 

E726 BAE A€)C ALL 
E727 84E C=8 ALL 
E728 138 LDI Stx 
E729 188 

E72A 3C8 CLRKEY 

E72B 3CC ?KEY 

E7eC 827 JC E738 +84 
E72D 266 C=C-1 S&x 
E72E 3E3 JC E72A -84 
E72F 2FB JNC E?8E -21 
E738 228 C=KEY KY 
E731 37A 2f+#C 

E732 62B JNC E737 +85 
E733 83€ RCR 3 

E734 366 ?fA#C SEx 
E735 3AF JC E72A -8E 
E736 3CB JHC 272F -@7 
E737 261 

E738 888 2NCXG GB98 
E739 284 CLRF 2 

E73A 323 JNC E7IE -1C 
E73B 2E8 LSPOFF 

E73C 261 

E73D 688 ?NCXQ 8498 
E73E 149 

E73F 824 ?NCXQ 8952 
E748 328 DSPTOG 

E741 3E8 RTR 





n?19 page 


28 


JC 


Je ne vous expliquerai. pas cette routine en détaik, pour vous 
permettre d'essayer de la comprendre par vous même, c'est la 
meilleure des écoles, mais je peut tout de même vous donner 
quelques explications: 


Nom de la routine: "COUNT'" (en français, comptage). 
Réaffectation du clavier: 


“LN! : décrémentation automatique, 

"TAN" : incrémentation automatique, 

"SST!"! : incrémentation pas à pas, 

e—" : décrémentation pas à pas, 

"R/S" : arrêt du mode automatique, 
MENTER" : arrêt total de la routine, 
MSHIFT' : accélération du mode automatique. 


Quand vous faîtes XEQ "COUNT"', vous avez à l'affichage: " + ", 
à ce moment, les seules touches valides, sont:'"LN, TAN, SST, <— 
et ENTER". Quand vous lancez le comptage, les touches valides sont: 
"R/S et SHIFT". Toutes les autres touches, arrêtent provisoirement 
la routine. Quand vous arrêtez la routine par un R/S, les touches 
valides sont: "LN, TAN, SST et —",. 


D'autre part; deux constantes sont utilisées: 


En E718 : changement du "TONE", 
En E729 : changement de la vitesse de comptage. 


Enfin, les sous routines utilisées sont: 


#998 : attend le relachement de la touche et réagit 
aprés 5ms, 

Q7EF : envoi une partie ou tout un message à l'affichage, 

#952 : invalide tous les systèmes précédants et 


revalide la RAM 9 (la RAM 9 est tout le 
système des registres et la pile), 

16E3 : éxécute la fonction "TONE", 

2CFŸ : efface l'affichage. 


J'arrête donc 1à mes explications, le reste doit être étudié par 
vous. Mais j'attend vos impressions sur cette petite routine et 
éventuellement tous les articles que vous pourrez faire sur le 
microcode, qui depuis la sortie du HP71B commence à être un peut 
vide 

microcodement vôtre!!! 


DANIEL 
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D'abord, une grande nouvelle: ça marchel Pas tout 
à fait comme prévu, hélas... 

Les ennuis rencontrés au SICOB provenaient vraisem- 
blablement de courants induits ou de parasites dans Le Fr 
de commande des horloges (CLOCK) des bascules J/K,qu les 
déclenchaïent à chaque impulsion sur ©CETO au lieu d'at- 
tendre la dernière impulsion de la série. 

Celà m'a d' autant surpris que tous les sous-ensembles 
de ce montage,pris séparément, fonctionnaient parfaite- 
ment. I1 s' agit donc probablement d'un problème d'inté- 
gration impossible à résoudre faute de temps avant ce 
SICOB, 

I1 aurait fallu probablement remplacer certaines liai- 
sons par des fils blindés, ou mettre des condensateurs 
de découplage par-ci,par-là, ou faire les deux... 

Mes problèmes de santé m'ont empêché de vérifier ces 
hypothèses, et je ne compte pas continuer dans cette voie 
(je vais tout de même en faire une installation simplifiée 
dans ma GP-100,histoire d'amortir le matériel, et présenter 
le tout à la rédion mensuelle d'octobre prochaïin.). 

En effet, pendant mon repos forcé, j'ai découvert deux 
merveilleux circuits intégrés (4514 et4515 en C.MOS )}qui 
vont me permettre de faire la même chose plus vite et 
mieux! 

Plus vite, car travaillant sur une sortie parallèle et 
non série; 

Mieux, car insensible aux interruptions du module TIME, 

Et en prime,le sous-ensemble déficiant du SICOB n'est 
plus utilisé, 

Ce montage permettra de commander jusqu'à128 circuits 
indépendants avec le port A du convertisseur, et 32568 en 
le multiplxant avec le port B...Est-ce suffisant? 

Dans la version port A seul, le module EXTENDED 1/0 ne 
devrait pas être obligatoire, et le montage devrait pou- 
voir aussi fonctionner sur une toute bête prise CENTRONIC 
donc sur à peu près tous les micros existants. 

A bientôt pour tous les détails sur ce futur montace 
qui,vu l'ampleur de la réalisation, occupera les pages de 
pas mal de JPC, et que ceux qui n'ont rien compris à mes 
explications se rassurent,ce n'est pas nécessaire pour 
utiliser cet appareillage. 


Jean-Claude BECKER 


ir 
MONTAGE SUR GP-100: Diagramme dans le temps des sorties 
de chaque circuit intégré (en haut:+5v; en bas ®V) 


——.--- => -- +5. 
. GETC RENE ne do OMS =. 
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LA 41 MFNE GRAND TRAIN (suite) 
Schéma du montage simplifié dans ma GP-100: 


MONOSTABLES 
4528 


CONVERTISSEUR 
HP 82 166 A 
GETO DCLO 


VAS COMPTEUR DECIMAL 
4017 R.A.2 


34 5 6 


BASCULFS J/K 


9 
# 
EE 4027 


ELFCTRONTOUES 
4016 
PRISFS JACKS 
FEMFLLES 


7 8 
M INTERRUPTEURS 


7 REMAROUES: 

1. Tous les transistors sont 
du type 2N2222. 

2.Les "40161 ne servent à rien. 
Mais comme ils étaient déjà sur la 
carte, je les ai laissés... 

3. Oui, je vais essayer d'améliorer 
mon graphisme! 


Jean-Claude BECKER 
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HP 71 


FORTH / ASSEMBLEUR: 


INVFRSION DE L'AFFICHAGE 
ALICE ET LE MIROIR 


PROGRAMMES : 


: LE HP71B ET LA RECURSIVITE 


LISTEUR DE VARIABLE 


BANC D'ESSAI: 


: ESSAT DU MODULE MATHEMATIQUE DU HP71B 


(JEAN-PIERRE BONDU) 
(LAURENT ISTRIA) 


(PIERRE DAVID) 
(PIERRE DAVID) 


(LAURENT ISTRIA) 





INVERSION DE L’AFFICHAGE, POUR HP71B+Forth 


Chers collègues, 


Jde vous propose aujourd'hui, pour ceux qui possèdent le serveilleux aodule Forth/Asseableur, un 
progranme persettant d’inverser le contenu de l'affichage. Si vous vous êtes intéressé au 
programme "DESSIL", paru dans dPC No 17, de Septesbre 1984, ceci correspond à l'option "l”. 


Voyons donc son fonctionnement : 

Vous faites INVAFF, puis CEND LINEJ, et vous adairez le résultat. Attention, le Forth, £a va 
très très vite ! 

Si vous voulez que 6a reste plus Jongteaps vous pouvez taper INVAFF ABORT, puis [END LINE]. 
Rinsi, l'affichage reste inversé jusqu'à la première pression de touche. 


Mais la vraie vocation de ce aot est d’être intégré dans des aots ou prograases plus iaportants. 
Par exeaple, dans le progranee "DESSIL", vous remplacez l'option "INV" (lignes 1730 à 1810) par: 
1730 *INV°: 

1740 FORTHX *INVAFF® 

1730 A$=6DISP$ 

1760 H$=A$ 

1770 GOTO *KEYTEST? 

C'est tout de aëse plus rapide ainsi, non ? 


L’afficheur graphique est divisé, en aésoire, en trois zones, que vous pouvez distinguer dans le 
got “INVAFF". La première adresse est l'adresse de fin, la deuxièae l'adresse de début. 


de prépare la nése chose en Assembleur, Là, ce sera quasiment instantané ! 


{ Adr dr) 


{ Val} 
{ nonVal} 


{ Octet -colonne- suivant) 


2E15F 2E104 INV { iere zone} 
2E260 2E200 INV { 2e8e zone) 
2E34C 2E300 INV ; { 3eae zone) 


Voilà, j'espère vous lire bien vite ! 
Jean Pierre BONDU (PPC #33) 


JPC n°19 page 25 





ALICE ET LE MIROIR 


L'idée de ce aot s'est venue en consultant le premier jet du JPC de ce mois et en y découvrant 
le sot INVAFF de Jean Pierre BONDU. Qu’il trouve ici ma considération la plus profonde. 


Pour les heureux possesseurs de cette incomparable ROM qu'est le sodule FORTH, voici donc un 
mot dont la seule utilité est de prouver la facilité d'accès à la structure interne du HP71 
avec l'aide de FORTH, 


Le premier aot: NiC-2N2 peraet d’interchanger les valeurs contenues dans les quartets situés aux 
adresses Adri et Adr2. Son diagramme est le suivant: Adrl Adr2 --} 


Le deuxième aot, MIROIR, est celui qui effectue les calculs, En effet,la nénoire d'affichage 
est placée à trois adresses différentes: 2E104, 2E200 et 2E300. Le problème qui 5e pose quand on 
veut sanipuler l’afficheur est qu’il est nécessaire de travailler sur des adresses qui ne se 
suivent pas. Mais un petit peu de réflexion permet de s'arranger. 


Ce aot peraet donc d’inverser l’afficheur, comme dans un airoir, 
de crois que le mieux pour vous est encore d’éxécuter ce aot. Sachez cependant que pour rendre 
son effet bien visible, il peut être nécessaire de faire suivre MIROIR de ABORT, 


5 Nic-3N3 Adri Adr2 --} } 
DUP CR on copie Adr2, et on rappelle sa valeur} 
ROT on rappelle Adrl) 
DUP CR on copie Adri, et on rappelle sa valeur) 
4 ROLL on rappelle la valeur de Adr2) 
on eftectue le changement} 


: MIRDIR 
DB 123 
D Îère zone) 
2E227 1 + 
2E227 1 - 
NIC-3N2 
-2 on travaille sur 2 quartets) 
+L00P 
C8 D7 
DO { 2ème zone) 
2E227 1 + 
A0 - 
2E227 1 - 
NIC->N2 
-2 
+LODP 
0 27 
D0 { 3èse zone) 
2E227 1 + 
2E227 I - 
N1<-2N2 
-2 
+LO0P ; 


Laurent ISTRIA 
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LE HP71B ET LA RECURSIVITE 


La récursivité est une notion à Ja fois très 
siaple et très complexe. Siaple, car rien n’est 
plus facile que de dire : "on recomtence", mais 
complexe, car Île passage à l’acte est toujours 
difficile. Peu de progranseurs aujourd’hui 
saitrisent bien cette notion. Ceci conduit parfois 
à des prograsses longs et incompréhensibles, alors 
qu'une solution récursive aurait été plus rapide, 
plus concise, et plus élégante, Mon but est de 
vous faire percevoir cette notion, certainement 
l’une des plus évoluées de la programmation, ainsi 
que son application avec le HP71B. 


Afin d'illustrer cet article, j'ai choisi deux 
prograsnes, où la récursivité est particulièrement 
utile. Mais, ne direz-vous, qu'est ce que Îa 
récursivité ? 


Un programse récursif est un prograame qui 
s'appelle Ilui-mége. Ainsi, par exemple, la 
fonction "Factorielle" pourrait se progranser 
en considérant que n'=n.{n-1}!, Vous voyez là une 
foraule récursive : on ne sait toujours pas 
calculer nl, on sait siaplesent se ramener à un 
état plus facile à calculer. Mais il eanque 
quelque chose à cette définition: il faut définir 

1', qui vaut 1. Ceci sert de test d'arrét, et de 

base de départ pour le calcul de n',. L'ensemble se 

traduit par un progranse tel que : 

DEF FNF{N) 

IF N=1 THEN FNF=1 ELSE FNF=NIFNFIN-1) 

END DEF 

Buelques remarques sont nécessaires : 

- Nous utilisons une fonction utilisateur. Ceci va 
bien pour des “petits” programmes. Pour de plus 
gros, il faudra profiter des SUB et autres CALL, 

- L'étape récursive est FNF=NIFNFIN-1). Ceci veut 
dire : on suppose qu'on connaît n-i}!. Cette 
étape se reproduira jusqu'à ce que l’on sache 
vraiaent calculer ({n-i)!, ce qui signifie que 
nous sogñes arrivés à |. Alors, nous connaissons 
2, qui nous peræet de calculer 3!, .., jusqu’à 
n'. Siaple, non ? 

Vous avez vu le test d’arrët, Il est fondamental, 

car Sans lui, nous aurions réinventé la boucle 

infinie ! 

I se trouve que la fonction "Factorielle" est 

plus facile à programmer, plus rapide, et plus 

économe en place séaoire en utilisant une boucle 
on ne peut plus classique. Néansoins, cet exeaple 
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peraet de garder les pieds sur terre: la 
récursivité n'est pas un resède miracle ! Il ne 
faut pas l’appliquer à tort et à travers... 


Nous allons maintenant voir deux exemples où une 
approche récursive perset de sisplifier grandement 
les choses + le calcul d’un déterminant en 
développant par rapport à la première ligne, puis 
le très classique problème des reines sur un 
échiquier. 


Pour ceux qui ont eû la chance de ne jamais bûcher 
sur un exercice de maths, je vais expliquer ce 
qu'est un déterminant: 

Un déterminant est un étre mathématique qui n'a 
d'autre utilité que d’esbéter tous les élèves et 
étudiants de France et de Navarre, De loin, cela 
ressemble à peu près à: 


MT M2 Mi min 


m22mM22-M2i man 
[ | | 

| 
LX 
l \ | Î 
\ | I 
! ! 
: 1 


Dn- 


! 

| 

l 

Se 
m)im J2— Mi -min 


| | X l 
l 1 X | 
Mie} 
ll ! 
1 nt 
MAMn2 - Mni - Mon 


Non, n'ayez pas peur, il ne eord pas ! 


Et ceci se développe de la manière suivante: 
n 
"1 
Dn- > EU x miix Dn-1 


La 
où Dn-a signifie déterminant de la sous-satrice 
obtenue en enlevant Ja 1 ère Jligne et la ji ème 
colonne. On voit donc qu'un déterminant d'ordren 
se ramène à n calculs de déterainants d'ordre n-i. 
La récursivité s’ispose donc ! 


Notons que le test d'arrêt est le calcul à l’ordre 
2. On à alors, s'il a la foree suivante : 


a b 
D 2- 
C0 














le calculer par : D,= ad - bc. 


Jde vous conseille d'étudier le progranne : il est 
court, et facile à comprendre. 
Cet algorithee est appelé " Calcul récursif 


descendant ", c'est à dire qu’on part du cas 
général, pour descendre vers le cas que l’on sait 
résoudre, Sieple, non ? 


L'exemple suivant que je sousets à votre sagacité 
nécessite une connaissance ainiaus du jeu d’Echec. 
Il s’agit de placer B reines sur un échiquier, 
sans qu'aucune soit en prise. Problème posé par 
un certain Gauss, au siècle dernier, que nous 
allons résoudre, avec des aoyens plus isportants 
il est vrai. 


Nous allons avoir un  échiquier de taille 
paranétrable. Pour le début, afin d’avoir un 
progranme Le plus sisple possible, nous ne 


tiendrons pas compte des éventuelles synétries, et 
nous verrons "anuelleæent" les solutions. Ceci 
peræet de résoudre le problème en un quart de Ko. 
L'algorithae sera appelé "algorithæe récursif à 
essais successifs" , ce qui signifie que nous 
allons essayer chaque solution, pour revenir en 
arrière quand certaines d’entre elles s’avèreront 
mauvaises, De par le principe de la récursivité, 
toutes Les positions interaédiaires seront 
sauvegardées au fur et à aesure, 

ais quels sont donc les critères du prograsme ? 
Il ne faut pas qu’une reine soit sur la aéme 
horizontale, ni sur la e«ére verticale, ni sur 
aucune des deux diagonales éventuelles. Pour 
résoudre le problème, nous allons examiner 
l’échiquier ligne par ligne, en essayant pour 
chacune d’entre elles toutes Iles possibilités. 
Nous évitons ainsi le problèse de l'horizontale. 
Sachant donc que la première reine est sur Îla 
prenière ligne, et que la seconde est sur la 
deuxième, etc... il nous suffira de déclarer un 
tableau à une disension (vecteur), qui contiendra 
la position de chaque reine. Ainsi, si la 3-èe 
reine est à l’ordonnée 5, nous aurons R(3)=5, 
Ensuite, il suffit d’expriger 3 conditions (lignes 
1040 à 1060) pour chacune des positions déjà 
trouvées, et nous aurons éliainé tous les 
sauvais arrangenents. Siaple, non ? 


Le deuxième programme est déjà plus cosplet | je 
dirai eêge: plus complexe ! }, En fait, ce n’est 
qu'une apparence: seule la partie "élimination des 
sysétries et enregistresent des résultats" ect 
vraisent nouvelle. L'utilisation est aussi plus 
aisée, mais l'étude de ce programse est réservée à 
ceux qui ont cosgris le premier. Vous trouverez en 
dessous du listage, un exesple pour un échiquier 





: 
: 
3 
4 
; 
4 
3 
: 
1 
: 
+ 
: 
4 
4 
8 
4 
1 
! 
4 
1 
: 
; 
4 
t 
3 
1 
1 
: 
4 
4 
: 
4 


de taille 5x5, 


Utilisation du programne "DETER": 


Faites attention de mettre D à Q au départ ! 

En OPTION BASE 1, resplissez un tableau, par 
exesple 3x3, Si vous avez appelé le tableau 6, par 
exeaple, faites " CALL DETER (6{,),3,D)" . Ceci 
signifie D devient le déterainant de la satrice 6, 
d'ordre 3. 


Utilisation du programme "REINE": 


Faites RUN. Indiquez ensuite la taille de 
l’échiquier (par exemple 5x5). Quand le progranse 
s’arréte , vous devez visualiser le tableau en 
faisant : FOR R:1 TO 8 € R(L); € NEXT L. Tapez 
ensuite [F3 CONTI. Répétez jusqu’à épuisement du 
stock ! 


Utilisation du programme "REINES": 


Faites RUN. Quand le prograsme à fini de tourner, 
$ contient le nosbre de solutions, et P{,) les 
solutions elle-séres, À visualiser par vos propres 
aoyens: il faut bien que vous réflechissiez, quand 
sèse ! 


Voilà, nous arrivons à la fin de cet article sur 
la récursivité. d’espère vous avoir convaincu de 
l’utilité et de la souplesse de cette néthode. 
Vous pourrez ainsi faire d’encore aeilleure 
prograame pour JPC ! 


Ayant passé un certain temps sur cet article, 
il ae serait assez agréable de recevoir vos avis : 
Ce que je vous explique est-il clair ? Désirez 
vous que je continue 7? Avez-vous trouvé cet 
article facile, difficile, de niveau correct ? 


D'avance, serci. En attendant de vous Lire, je 
vous dist À bientôt ! 
Pierre DAVID. 
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PROGRAMME DETER 


1000 SUB DETER(M(,),N,D) 
- M: La satrice dont on cherche le déterminant. 
N: La disension du detersinant. 
D: La variable dans laquelle doit être rangée la valeur calculée. Attention: cette 
variable doit étre nulle au départ (cas classique de soamation). 
1010 IF N=2 THEN D=M(1,1)4M{2,2)-M(1,2)4M(2,1) & GOTD *FIN° 
- Si n=2, cas trivial. De toute aanière, on arrive à ce cas, puisque le principe est de 
se ramener à une forme qu'on sait calculer, 
1020 DIM A(N-1,N-1) 
- Aest la sous-satrice extraite de N, c’est à dire M sans la {ère ligne et sans la iène 
colonne. 
1030 U=1 
- Petite astuce qui perset d'éviter {-1)°n. U vaudra 1, puis -1, puis 1, etc... 
1040 FOR 1=1 TO N 
- On développe le déterainant par rapport à la première ligne. 
1050 IF M{1,1)=0 THEN * SUITE? 
- On évite ainsi un fastidieux calcul. 
On resplit saintenant la matrice À: 
1080 FOR J=1 TO N-1 
1070 FOR K=1 TO 1-1 
1080 A(J,K)=M(I+1,K) 
1690 NEXT K 
1190 FOR K=T TO N-1 
1110 A,K)=M(J+1,K+#1) 
1126 NEXT K 
1130 NEXT J 
- Et là, on calcule Le déterminant de la matrice À. 
1140 CALL DETER(AI,),N-1,D1) 
1150 D=USM {1,1} tD1+D 
- Puis, on applique ce résultat au calcul du déterainant. 


1180 *SUITE’: 
1170 U=-U 

- U vaut 1, puis -1, puis 1, etc... {bis) 
1180 NENT I 


1190 *FIN’: 
1200 END SUB 
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PROGRAMME REINE 


10 INPUT ‘Taille: ?,783;k 

- La taille de l’échiquier est paramétrable. 

20 OPTION BASE 1 
30 DIM RIK) 

- R contient la solution en cours d'élaboration. 

40 CALL REINE (O,R(),K) 

- C'est le prograse propresent dit, l’appel initial de la fonction récursive. 


1000 SUB REINEUN,R(),K) 

- N: C'est le niveau de profondeur de l'étude. C’est aussi le nombre de reines déjà 
trouvées, La reine suivante (celle trouvée dans ce sous-programae, par exeaple) aura 
nuaéro N+i, 

RO: Contient les reines trouvées jusqu'à ce niveau. À partir de N+tf, les valeurs n'ont 
pas de signification. 
K: Taille de l'échiquier, qu’il est nécessaire de connaitre ! 
1010 IF N=K THEN PAUSE €& GOTO ?FIN? 
- On arrëte si la reine en cours est la kièee, c’est à dire la dernière, 
Solution priaitive: quand on à trouvé un arrangesent, on s'arrête, C'est surtout sur ce 
point que diffère le prograsme suivant, 
1920 FOR 1=1 TD K 
.- La (Nti)ème reine prend les valeurs { à K. (Autresent dit, elle prend toutes les valeurs 
sur l’échiquier !} 
1030 FOR J=1 TO N 
- 1 faut vérifier que la (Ntflène reine ne se trouve pas en prise avec les N précédentes. 
1640 IF K{J)=1 THEN *CNEVP? 
- C'est à dire pas sur la même verticale, 
. 1950 IF RtJ)+J=I4N+] THEN “ONEVP® 
- ou sur la aème diagonale (y=9-x), 
1060 IF RIJ)-J=I-N-1 THEN “ONEVP® 
- où sur l’autre diagonale (y=x). 
1970 NEXT J 
- Si on arrive jusqu'ici, c'est que cette reine n'est pas en prise, 
1080 R(N+1)=1 
- alprs on l’enregistre... 
1090 CALL REINE{N+I,RE),K) 

- Et on passe à la reine suivante, C'est dans cette toute petite instruction que se cache 

toute la Récursivité ! 


1100 *ONEVP?: 
- On N'En Veut Pas... Cette reine est gauvaise (ou finie d’étre étudiée), On passe à la 
suivante, c’est à dire sur la case suivante. 
110 REXT I 
- Toute la rangée a été étudiée, on recommence à la reine précédente, une case plus loin. 


1120 ‘FIN’: 
1136 END SUB 
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PROGRAMME REINES 


10 DESTROY K,S,P,R 

- Afin d'éviter des erreurs si un tableau à été déclaré avant, il convient de détruire les 
variables qu'on désire utiliser. 

20 INPUT ‘Taille: *,'8"3;K 

30 TI=TIME 

40 OPTION BASE 

90 INTEGER R(K),P{KEK,K),5 

- R: Enplacenent des reines sur l’échiquier. 
P: Contient k°2 solutions (je suppose et espère qu'il n’y en a pas plus). 
S: Nosbre de solutions. 

60 CALL REINELO,R(),K,S,P(,)) 

70 T2=TIME 


80 T=72-TI 
90 DISP T 
- de garde intacts Ti et T2, car 12-T1 peut parfois être négatif. (Cas d’un calcul qui passe 
par minuit). Si T est négatif, donc, je peux quand aëne obtenir le teaps de calcul. 


1600 SUB REINE{N,R(,K,5,P1,)) 
- Voir rôle des variables ligne 50, et dans le prograsne précédent, 
1010 IF N#K THEN *SUITE” 
- C'est à que tout change ! 
1620 FOR J=1 TD 5 
- Da va comparer la solution trouvée avec les 5 précédentes, afin d’éliainer les synétries 
éventuelles. 
1030 SFLAG 1,2,5,4 
- Si un de ces flags reste araé à la fin, c'est que cette position a un symétrique. 
1040 FOR 1=1 TO K 
- On exasine la position d, et on arme le flag correspondant si c’est une symétrie par 
rapport: 
1050 IF R(K+1-T)#P(J,1) THEN CFLAG | 
- - à l’horizontale 
1960 IF P(J,R(I))#I THEN CFLAE 2 
- - à la diagonale (y=x) 
1070 IF P(J,K+I-R(TI)#K+1-I THEN CFLAG 3 
- - à la diagonale (y=9-x} 
1080 IF PUJ,KHI-IHHK#1-R(I) THEN CFLAG 4 
- - au centre. 
1090 NEXT ! 
- On a vu la position d, 
Maintenant, on va éliminer la solution en cours si elle présente une sysétrie: 
1160 FOR 1=1 TD 4 
1110 IF FLAG(I) THEN ’FIN’ 
1120 NEXT I 
— Et aaintenant, on passe à la position suivante. 
1130 NEXT J 
- Si on arrive jusqu'ici, c’est que cette position est nouvelle. Donc, elle est bonne. 
1140 S=6+1 
- Donc on cospte une solution de plus, 
1150 DISP @ DISP STR$(S);°:°5 
- on l'affiche, ainsi que son nuséro, 
1160 FOR I=1 TD K 
1170 PIS,1)=R{1) 
- gt on l’enregistre . 
1180 DISF STR$IR(I)); 
1196 NEÏT I 
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- Siaple, non ? 
1200 GOTO ?FIN’ 


& partir de maintenant, le prograame est identique au précédent, mis à part la 
ligne 1230. 


1210 *SUITE’: 

1220 FOR 121 TO K 

1230 IF N=0 AND 1>-K/2+1 THEN ?FIN° 

- Afin d'éviter des recherches inutiles, c’est à dire de disinuer le teups de calcul, il 

faut éliminer les positions sysétriques par rapport à la verticale. Il suffit alors 
d'arrêter la recherche si la première reine dépasse la verticale, ce qui se traduit par 
la condition 1=K/2+1. 
Coase quoi un bon algorithae peut toujours faire gagner un peu de teaps ! 

1240 FOR J=1 TO N 

1250 IF RiJ)=I THEN *ONEVP? 

1260 IF RtJ}+J=I4N+{ THEN ? ONEVP? 

1270 IF RiJ)-J=I-R-1 THEN *OREVP? 

1280 NEXT J 

1290 RIHH)=T 

1300 CALL REINEINHI,RUD,K,5,P4,)) 


1310 *GNEVP?: 
1320 HEXT I 


1330 ‘FIN’: 
1340 END SUE 


A_B_C_D_E A_E_C D _E A_B_C_D_E 
LIKE I 1 1 11 1iIXI EL 111 did di 
CET 21/1 1 11x12 2e 
Si Ets Solos Si_IXL 1 1 15 
4iUIXI TL 1 14 4IXI I 1 1 14 4111 IX 14 
Si 1 IXI IS Si_I I XI CIS DiRI + 11 
BBCDE BBCDE hHCDE 
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LISTEUR DE 


Le programme que je vous propose aujourd’hui fait 
partie de ces utilitaires qu’on aime bien avoir 
sous la main le aosent opportun. LISTVARS, conne 
son nom l'indique, vous persettra de surveiller 
étroitement vos variables. À l’éxécution, il vous 
indique Ile nos, Je type, éventuellement les 
paramètres (dimensions, taille, option base) de 
chaque variable déclarée ou utilisée. 


Afin de préserver toutes les variables, et 
d'éviter les interférences avec les variables du 
programme proprement dit, j'ai utilisé un SUB. 
Ceci inplique un appel par CALL. Néanaoins, vous 
pouvez faire RUN, car tout est prévu ! 


Une fois le progranse lancé, vous voyez l’afichage 
“Noa Ty Tb Diel Dim?" . Ceci est l’en-téte du 
listage. "Nos" est le non de la variable, Type son 
type (Réelle, Complexe, Entière, ...), Tb sert en 
cas de tableau: Si c'est le cas, nous voyons un T 
suivi de l'option base dans laquelle a été déclaré 
le susdit tableau, Dial et Dia? servent pour 
indiquer les disensions du tableau éventuel, avec 
une signification particulière en cas de variable 
chaîne, ou de tableau statistique. 


Les différents types de variables sont: 

- E : Variable Entière, 

- R: Variable Réelle. 

- Re: Variable Réelle courte {SHORT) 

- £ : Variable Complexe, 

- Cc: Variable Complexe courte (COMPLEX SHORT), 

- St: Tableau Statistique. Dans ce cas, la |-ère 
disension est le nosbre de variables du tableau. 

- Chi Variable Chaîne. Dans ce cas, la première 
digension est la taille de la variable, et la 
deuxièse est, le cas échéant, le nombre de 
d'éléaents du tableau. 

- Jndirecte : C'est un cas particulier. Une 
variable indirecte est une variable passée comme 
paramètre lors d'un CALL. 


Voilà, vous en savez assez pour utiliser le 
programme. Mais saintenant, si vous le voulez bien 
voyons un peu coagent il fonctionne, c'est à dire 
cossent sont stockées les variables. 


Une lecture attentive des IDS No 1 ne suffit hélas 
pas pour tout savoir. Ce que je vous expose ici 
résulte aussi d’une recherche personnelle. Chaque 
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VARIABLES 


variable a un "Registre" 
contient soit la valeur, soit l’adresse où sont 
stockées les valeurs. ( Tableaux, Chaînes, et 
Complexes }, Pour raisons de rapidité, chaque 
Registre est placé dans une des 26 listes. La 
partie alphabétique déteraine la liste où est 
stockée la variable. Entre chacune de ces listes 
sont placées les valeurs (en cas de tableaux, 
chaînes ou conplexes). Chacune de ces listes est 
référencée par une série de 26 pointeurs, qui 
est placée à l'adresse 2F9BE. Chacun de ces 26 
pointeurs fait 7 quartets, dont 2 pour le nosbre 
de variables congenéant par cette lettre, et 5 
pour l'adresse du début de la liste. 


correspondant, qui 


Le problème, c’est que le progranse risque 
d’interférer avec les variables que l’on désire 
étudier. Il faut donc passer par un CALL, ce qui 
a pour effet de rendre caduque tout ce que j’ai 
écrit au sujet de la zone des pointeurs. En effet, 
l’ordre SUB provoque la sauvegarde de 
l’environnement dans lequel les variables sont. La 
zone des pointeurs, hélas, n'est valable que pour 
les variables "Actives”. [1 faut donc aller puiser 
dans un espace tampon (Buffer), pour trouver les 
variables de l’environnement précédent, auquel il 
sanque la zone des 26 pointeurs, C'est ce fait le 


. Programme, 


Une fois le Tampon trouvé, on déduit l'adresse des 
variables. Et là commence vraiment l'exploration 
des aémoires. Chaque registre est organisé de 
sanière différente suivant le type, Mais certains 
points sont remarquables. Pour les étudier, notons 
d’abord que chaque registre fait 19 quartets, et a 
à peu près l’allure suivante: 

ÉAN: PPPPPddddDDDDBtT 


La première zone contient le nom de la variable. 

- À Rest le code ASCII de la lettre. 

- N vaut 0 pour une variable dont le nos ne 
coaporte pas de chiffre. Dans le cas contraire, 
ce chiffre vaut N-1 (par exenple, pour H7, N à 
pour valeur 8). 

La deuxième zone (16 quartets) contient toutes 

sortes d’inforaations utiles: 

- 7, tout d’abord, qui indique le type de variable 
0 à 9 pour Réelle, À pour Entière, B pour Réelle 
courte, etc... Selon cette valeur, les 20nes ont 





des significations différentes. 
- PPPP Fest un pointeur (relatif) vers la zone 
des valeurs. Valide pour Iles tableaux, les 
complexes, les chaînes. Pour les autres, la 
valeur est contenue dans le registre, et cette 
zone, ainsi que les suivantes, est Sans aucune 
signification. 
t prend la valeur © dans le cas de variable 
siaple, et le nosbre de disension dans le cas de 
tableau. 
dddd et DDDD représentent les valeurs 
lisites des disensions, le cas échéant. 
Toujours si c’est un tableau, Le quartet b prend 
la valeur de l'Option Base courante lorsque le 
susdit tableau a été déclaré. 









SEDot jui 
Ce Lameux HP74. 


ie 







Tout ceci est donc saintenant transparent, {je 
l'espère), à travers le programme ci-joint. de 
souhaite fortement que vous preniez le temps de 


l'étudier. Si vous avez des questions à forauler, 3 


écrivez-#0i. 
À Bientôt... 
Pierre DAVID 


Pierre David 
33 bid St Martin 


75003 Paris 
7 


oi 


re, 
4 
’ 
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PROGRAMME LISTVARS 


10 DELAY INF 
- L'affichage étant sur 22 colonnes, il est inutile de mettre le deuxièae paramètre. 


À propos, je vous signale que DELAY 8 œarche tout aussi bien, et écononise de la place 
sésoire, Je ne l'utilise pas, pour préserver la lisibilité du prograame; mais rien ne vous 


eapèche de le gettre. 
20 CALL LISTYARS 
30 DELAY 0,0 


1600 SUR LISTVARS 
- Sous forae de SUB, pour éviter des interférences avec les variables “norgales". 
Voir l’article pour plus d'explications. 
1010 DIM V$122],R#019]),A$15],L#13],0$11] 
- V$: Variable pour l'affichage: c’est elle qui contient toutes les inforaations. 
R$: Registre de la variable en cours d'explorationt 19=16 (variable) + 3 (no). 
â$: Utilisée pour diverses adresses, 
L$: Longueur du taspon (Buffer) en cours. 
O$: Un octet pour l'OPTION BASE. 
1920 REAL 8,B,H2,M1,P 
- À: dans le recherche du Tampon: adresse de ACTIVE 
B: dans la recherche du Tampon: adresse de CALSTK, puis adresse de la variable en cours. 
#2 et Mi: pointeurs pour délimiter la zone des valeurs. 
P: pointeur vers le début de la valeur, 1e cas échéant. 
1630 INTEGER N,D,D1,D2,0,L,7,Ù 
- NH: utilisée plusieurs fois, soit coame code ASCII de la première lettre, soit comae 
nuséro éventuel de la variable (A9, H4, etc). 
D: nosbre de dimensions, Di est la presière, D2 la deuxième. 
D est l'inverse de l’'OPTION BASE (0 si 1, 1 si 0). 
Li longueur d'une cellule de variable, de tableau, de chaine. 
T: Type (0-9: réelle, 10: entière, etc). 
Ur Utilitaire. Sert à stocker des valeurs inutiles. (voir lignes 2200, 3350, 3360, 8050 


et 8060), 


1520 DEF FHR(P,N) 

- Cette fonction ne donne pas de valeur, mais évite un long CALL. 
1330 VSIP-EYPONENT CN), PI=STRSIN) 

- Cadrage de la dimension, dans la chaîne V$, 
1540 END DEF 


2060 A$=FNISS(PEERS (?2F58D?,5)) 
- valeur de CALSTK, qui donne l'adresse du dernier environnement créé. Là où sont bien 
évidessent toutes les variables qui nous intéressent... 
2010 A=HTD{A$) 
- À est en fait l'adresse du Tampon courant. 
2620 IF PEEK#(A#,2)="00" THEN *EUF? 
- Si ce taspon à une identification de *60*, c’est le bon. 
Si vraiment vous tenez à grapiller 3 octets au dépend de la lisibilité, je vous 
conseille: IF NOT VAL{PEEKS(R$,2)) THEN ... Esprit 41, quand tu nous tiens ! 
2030 L$=FNIS$ (PEEKS (DTHS (4+2),3)8° 00°) 
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- Sinon, on en prend la longueur, pour avoir le début du tampon suivant. 
2040 LEHTDILS) 
2050 A$=DTH$(HTD (A#) +L+5) 

- Et A$ est cette adresse. 
2080 GOTO 2010 


2970 *BUF’: 
- L'espace des #éaoires est coapris entre les pointeurs ACTIVE et CALSTK. 
Il s'agit donc de déterminer ces deux adresses. 
2080 A=HTDIA#)+1345+1 
2090 B=A+5 
2100 P=HTD(FNIS$ (PEEKS (DTH# (À) ,5))) 
2110 A=A+P ! ACTIVE 
2120 P=HTDIFNIS# (PEEK#(DTH$(B),5))) 
2130 E=B+P ! CALSTK 
2140 M2=0 
- M2 pointe vers la fin de la zone des valeurs. M2=0 tant que cette zone est vide. 
2150 DISP *Nom Ty Thé Dixl Dis? 
- En-tête du listage. 


2160 *BOUCLE?: 
2170 V$=? 
- V$ contient 22 espaces. 
2180 RS=PEEKS{DTH#1(B-19),19) 
- R$ est une chaîne hexadécisale qui contient le registre de la variable, 
2190 N=HTD{FNI2$(R#I1,21}) 
- Nest le code ASCII de la lettre de la variable. 
22006 U=FLAB(S,N}96) 
- Exeaple pour LU, Si c’est une variable alphanusérique, le nog est codé en 
sinuscule. Alors, le flag à est arñé. 
2210 V$C1,1J=UPRC#ICHRS (R}) 
2220 N=HTD(R$TS,3]) 
- Si N=0, il n’y a pas de chiffre, Si N#0, le chiffre vaut N-1, 
2230 IF N THEN V#[2,2]J-STR$(N-1) 
- Il faut bien afficher ce chiffre... 
2240 IF N BND FLAG(S) THEN V$[3,31="#$" ELSE IF FLAG(S) THEN V$12,21="# 
- Affichage de *$? si c'est une variable alphanusérique. 
2250 T=HID(R$TA,41) 
- Type de la variable. 
2260 P=B-HTDIFNIS#(R#T151)}-4 
- Pointeur vers le début de la zone des valeurs de cette variable. 
2276 D=HTD(R#IS,53) 8 IF Dÿ13 THEN *IND’ 
- Nosbre de dimensions, 
2280 D$-RÈTÉ,83 & D=HOT VAL (D) 
- OPTION BASE courante lors de la création de ce tableau (si ©'en est un), 
2290 DI-HTD(FNIS$(R#[11,141k707)) 
2300 D2-HTD(FNIS$ (R$I7,1018° 073) 
2310 IF TéiG THEN ’R° 
- Variable réelle. 
2320 T=1-9 
- Pour rester cospatible avec le ON..G0SUB, il faut garder une valeur entre Î et 6. 
2330 ON T 60SUB ?E°,’Rc°,°TR°,”/Cc°,'C’,°Ch° 


2340 *BFFICH’: 
2350 DISP V$ 
- Affichage de la variable, 


Calcul de la nouvelle adresse: 
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2360 IF NOT M2 OR B-20>M1 THEN B=B-19 & GOTO 2380 

- Si la zone des variables est nulle, ou si on n’y arrive pas encore, on retranche 19, 
2310 B=M2-1 & N2=0 

- Sinon, on va au bout de la 20ne des variables, 
2380 IF BA THEN *BOUCLE' ELSE ‘FIN’ 

- Si on ne dépasse pas ACTIVE, on recommence. 


3000 °R’: 

- Variable réelle, 
3010 V$[5,51="R° 
3020 GOTO *AFFICH’ 


3030 *E’: 
- Variable ou tableau Entier. 
3040 V$15,31="E? 
3050 L=é 
- & quartets pour une cellule du tableau éventuel. 
3660 GOSUE *T° 
3070 RETURN 


3080 ’RC': 
- Variable ou tableau Réel Court, 
3090 V$[5,61="Rc° 
3100 L=9 
3110 GOSUB *T° 
3120 RETURN 


3130 TR’: 
- Tableau Réel 
3140 IF O$="8* THEN *STAT’ 
- Si L'OPTION BASE vaut 8, c'est un tableau Statistique. 
3150 V$[5,51="R? 
3160 L=té 
3i70 GOSUB °T° 
3185 RETURK 


3190 *CC’: 
- Variable ou tableau Coaplexe Court. 
3200 V$L5,61=" Cr’ 
3210 L=18 
3220 1F D THEN °T’ 
3230 IF NOT M2 THEN M2=P 
- Les variables cosplexes sont codées comme des tableaux de 2 cellules. 
3240 Mi=P+#L 
3250 RETURN 


SSSZSSTSISSZZZSISZTZTIZIISIITIESEZSEESSESSSSSSSSSSSTSSSSTESESESSSSSE 
3260 °C’: 
- Variable ou tableau Coaplexe, 
3270 V$[5,51="C? 
3280 L=32 
3290 GOTO 3226 


SZZIZZIZIZEZZZIZTIEZISSSETSSTSSSSSEISSSSESSSSSSSSZTESLEZSSSESSESEEEE 


3300 *CH’: 
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- Variable ou tableau Chaine. 

3310 V$15,6)=° Ch? 

320 IF D THEN VS[8,9]="T'£0$ 

3330 IF NOT M2 THEN H2=P 

3340 Hi=P+(D2+2)t24((D1+0)#(D=1)+(D#1)) 
- Un peu conplexe, non ? 

3340 IF D#{ THEN U=FHR(16,D2) & FETURN 

3380 U=FNR(16,D1) 8 U=FNR(22,0D2) 

3370 RETURN 


3380 *IND’: 

- Variable indirecte, c'est à dire passée lors d'un appel par CALL, 
3390 V$[11]="Indirecte” 
3400 GGTO ?AFFICH? 


3410 ?STAT’: 
- Tableau Statistique. On affiche-alors le nombre Caévariables. 
3420 V$T5,41=°5t° 
3430 N=HTD(R$(7,71) 
3446 U=FRR(16,N) 
3450 IF NOT M2 THEN M2=P 
3480 HI=P+{DIH1) #16 
3470 6010 *AFFICH? 


8900 ?T’: 
- Test 5i tableau. 
8010 IF NOT D THEN RETURN 
- Si tel n'est pas le cas, on s’en retourne d'où on est venu... 
8020 V$[8,91=°T°&0$ 
8030 IF HOT M2 THEN W2=P 
8646 HI=P+(DI+0)#{{D-13#(D2+0)+(D82))4L 
8050 U=FNR(16,D1) 
8080 IF D=2 THEN U=FNR(22,D2) 
8070 RETURN 


9600 *FIN’: 
9010 END SUB 


Voilà, ce prograase occupe environ 1500 octets dans la méacire de votre HP7IB. 
C'est un utilitaire, et il faut le considérer conne tel. Mais il est réellesent très 
pratique, c’est pourquoi je &'occupe à le faire en assembleur. La suite au prochain 


épisode ! 


À bientôt... 
Pierre GAVID 


JP 
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BANC D'ESSAI DU MODULE MATHEMATIQUE DU HP71B 


nasal ent ho Het 

Il sesble que lorsqu'il deciderent de faire la ROM mathenatiques, les ingenieurs de Corvalis n° 
en tinrent pas cospte. Je n’ai en effet jamais vu une ROM aussi puissante pour un m#ateriel de 
poche cree chez Hewlett Packard. 

On peut dire que ce aodule renferae 3 sortes d’operations; sur les conplexes, sur les aatrices, 
et d'ordre general. J'en cosmencerai l’etude par ces dernieres. 


OPERATIONS D'ORDRE GENERAL 


2 operations traitent les changements de base: BVAL et BSTR$, La premiere convertit un nonbre 
hexadecisal, octal ou binaire en son equivalent decisal, tandis que la seconde donne Le resultat 
inverse, Les nonbres traites peuvent s’etendre jusqu'a 999.999,990.900 en deciaal. 

BAMMA rend la valeur de la fonction gansa de tout argument non entier negatif. Dans le cas 
contraire, il genere une condition d'erreur: GAMMA=inf. 

L062 donne la valeur du logarithre a hase 2 d'un noabre bien entendu positif. 

2 fonctions traitent les arrondis. IROUND qui donne la valeur de l’entier le plus proche en 
tenant compte de la valeur de option round. 

NEIGHBORIX,Y) retourne le nombre representable par la sachine le plus proche de X en direction 
de Ÿ 

Ceux qui sont interesses par le traitesent des NaN soient-ils heureux. NAN$ vient a leur aide, 
Cette fonction rend le nusero de l'erreur qui a genere le NAN teste: ainsi apres avoir effectue 
L06-2) et si TRAP(IVL)=2, le resultat est un NaN. Un test NANS effectue sur celui la donnera 
13 qui est le nueero de l'erreur LOG{neg}, 

La fonction TYPE retourne un nombre entier de zero a huit qui depend du type de l’argusent (real, 
integer, short, coaplex...). Utilisee avec LROUND et UBOUND, TYPE peraet de bien connaitre le 
type et les disensions d’une variable. En effet UBOUND rend la ou les dimensions superieures de 
la variable consideree, tandis que LEOUND donne la valeur de option base lorsque la variable 
consideree a ete diaensionnee, 

Nous voici maintenant arrives aux trois fonctions aathesatiques qui valent peut etre a elles 
seules le aodule. 

FAROOT (A,B,F) donne la valeur d’un zero de la fonction F dans l'intervalle [A,BI. Gi aucun zero 
n'est trouve, la fonction retourne alors la valeur du einiaus local. ? sous fonctions lui sont 
adjaintes; il s’agit de FVALUE qui contient la valeur de l’image par F du dernier point traite. 
Cela est bien pratique pour reconnaitre un extreaus d'un zero. L'autre fonction est FGUESS qui 
donne la valeur sur laquelle travaille la machine, Cela est tout à fait appreciable, puisqu'on 
peut arreter la fonction a tout sonent et connaitre ainsi la meilleure estimation (FGUESS) ainsi 
que son image par F (FVALUE), Cette fonction peraet egalement la recurrence jusqu'a 5 niveaux. 
par exemple, soit a resoudre l’equation suivantes X*24Y*2+1*2+X+Y#1-b=0 

Il suffira de taper ce prograsne: 

10 DEF FNF{X,Y,2)=X"24V 92479241 +4Y+17-h 

20 DEF FNG{UX, V) 

30 R=FNROOT(-2,2,FNF X,Y, FVAR)) 

40 FNG=FVBLUE 

50 END DEF 

60 DEF FNH(X) 

70 S=FNRODT{-2,2,FNG(X,FVAR)) 

80 FNH=FVALUE 

96 END DEF 
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100 DISP FNROOT(-2,2,FNHIFVAR))3G3R 


Le resultat sera: -2,-2,-2 qui sont bien trois valeurs possibles, La fonction FVAR utilisee dans 
le programme est la variable que nous appelons generaleaent X 

La fonction INTEGRAL (A,B,E,F) donne la valeur de l’integrale definie de F entre À et B; E est la 
tolerance sur l'erreur. Ainsi que pour FNROOT, 2 sous fonctions sont associees a INTEGRAL: IVALUE 
contient la derniere estisation de l’integrale (bien pratique egalement lorsque le calcul est un 
peu long} tandis que IBOUND contient la valeur estiaee de l'erreur, Cette derniere fonction a d° 
ailleurs une autre utilite, Si sa valeur est negative, cela signifie que l’integrale diverge et 
que la valeur de IVALUE peut etre conpletement erronee. 

La fonction PROOT qui, par ailleurs, est une extension du calcul sur les matrices, fournit TOUS 
les zeros (reels ou complexes) d’un polynone de degre N. L’algorithae utilise devait etre sur et 
rapide. C'est ainsi que celui qui est isplante provient d'un programme ecrit en Fortran pour un 
IBN 7094, acdifie et ameliore pur le HP71. Question rapidite, il lui suffit de 2101 secondes (un 
peu plus de 35 ainutes) pour trouver les zeros d'un polynome de degre 100 . Quand a l’efficacite 
tous les nogbres sont codes sur 15 digits, avec des exposants variant de -50.000 a +50,000 ! Il 
faut d'aileur noter que tous les calculs du sodule agissent sur des nombres dans cet eventail. 


Terainons les operations d'ordre general par un petit apercu sur les fonctions hyperboliques. 
Elles trouvent enfin dans ce aodule la place qui leur est due, Et elles y sont toutes: SIMH, 
COSH, TANH, ASINH, ACOSH, ATANH. 


OPERATIONS SUR LES COMPLEXES 


Il faut tout d’abord savoir qu’il est possible de disensioner des variables de type complexe: 
COMPLEX ou COMPLEX SHORT s'utilise conte INTEBER ou DIN. L'utilisation de COMFLEX SHORT peut 
etre necessaire quand on sait la place qu’occupe une variable COMPLEX, Les fonctions principales 
ont ete etendues aux calculs complexes. SORT, LOG, EXP, 7, 4, -, #4, *, 

D’autres enfin ont ete creees , C'est le cas de POLAR et de RECT. Tandis que celle la effectue 
la conversion rectangulaire-)polaire, celle ci effectue la conversion polaire-)rectanguiaire; c° 
est par ailleurs la seule fonction demandant un argument coaplexe sous forme polaire. CON] 
donne le conjugue. Sans commentaires... La fonction PROJ donne, quant à elle, la projection 
infinie, c'est a dire que: PROJ(Z)=7 si ZHnf et PROJ(Z)=Inf#0i si ABS(Z)=Inf, 

D'autres enfin, ont une action differente: ABS donne le aodule d’un complexe, tandis que ARE, 
siailaire a 8NGLE, en donne son argusent. 

Un des gros problemes qui s’est pose aux ingenieurs de chez HP a ete le traitement des infinis 
complexes. Cossent donner le resultat de cette operation: (2+Infiif{3+infi) ? 

Gi l’on utilise les aethodes de calcul de l’arithmetique de base en sachant que i*2 vaut -i on 
obtient le resultat: -Inftinfi. Mais si l’on ecrit les 2 nombres sous leur forae polaire, cela 
donne coane resultat: [lnf,pi/21#0Inf,pi/2]={Inf,pil dont la valeur sous forme rectangulaire est 
Inftinfi ce qui est tout de aese tres nettement different, La foraule utilisee est celle consis- 
tant à operer sur les valeurs polaires, Les ingenieurs qui airent au point la ROM pensent que c° 
est la sethode qui donne les resultats les plus logiques. Mais consent parler de logique puisque 
les nosbres dont nous parions sont imaginaires ? 

âu sujet des noabres coaplexes, on pourra d'ailleurs noter que le resultat de l’operation: 
ACOS1€1,1)3 est XFN non trouve. Cela voudrait-il signifie quelque chose ? 


OPERATIONS SUR LES MATRICES 


1 faut d'abord savoir que toutes les operations dont je vais vous parler sont realisables sur 
les nosbres complexes. 
Les 2 preæieres routines que je vais traiter sont celles qui persettent l'entree et la sortie 
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des ratrices. MATINPUT agit de la aene maniere que INPUT mais attend sur une entree multiple, À 
chaque fois que la machine deñande l'introduction d’un elesent, il est possible, soit d’entrer 
cet elesent puis d'effectuer ENDLINE, soit d'entrer plusieurs elenents de la gatrice, separes 
par des virgules. 

L’operation MATDISP permet la sortie d’une patrice vers le peripherique d'affichage; si l’on ef- 
fectue MATDISP À, les elesents s'afficheront, separes par CR; en revanche si l’on tape: 

HATDISP À; la sortie s'effectue ligne par ligne. 

Les operateurs USINE fonctionnent egalesent pour les gatrices, il est possible de creer des ina- 
ges et de pouvoir utiliser la fonction NAT DISP USINE, 

La fonction NAT PRINT agit telle MAT DISP, sais envoie la satrice vers le peripherique d’'inpres- 
sion. 

Les assigneñents siaples se font ainsit 

= (HATASE) la satrice À est redirensionnee et devient egale à la matrice B 

={) c’est l’egalite a un scalaire. Cela peraet de rendre une satrice constante, 

CON La satrice ne contient que des 1. La difference avec la fonctions precedente, est qu'il est 
possible de redimensionner la satrice en la rendant constante, 

IDN rend la #atrice identite, Il est egalement possible de redimensionner la gatrice. 

ER rend la sstrice nulles: redisensionnesent possible, 

=- negation de matrice 

+ addition de satrices 

- soustraction de #atrices 

{t œultiplication per un scalaire 

t sultiplication par une matrice 

TRKE aultiplication par le transpose d'une satrice 

DET calcul le detersinant de la satrice 

CNORN calcule la norme suivant les colonnes, c’est a dire donne la valeur saxiaur de la sonne de 
tous les elenents d'une colonne. 

RHORM calcule Ja norme suivant les lignes, c'est à dire donne la valeur aaxiaua de la some de 
tous les eleaents d’une ligne, 

FHORM {norme euclidienne) calcule la racine de la somme des carres des elesents de la matrice. 
BOT calcule le produit interne de 2 vecteurs. 

INY calcule l'inverse d'une #atrice, Il suffit de B secondes pour inverser une gatrice 10f10 et 
à ainutes suffisent pour une eatrice 45H45, Le probleme de cette fonction est que l'inversion d° 
une aatrice dont le deterainant est nul est passible et qu'aucune condition d'erreur n'est gene- 
ree. I] est donc toujours preferable d'effectuer le calcul du deterainant avant d'inverser une 
matrices cela afin de voir si l’operation est possible, 

TRN calcule la transposee d’une satrice, La aussi, un gros effort a ete fait sur la rapidite, 
FOUR calcule les transforaees finies de FOURIER. 

La derniere et non la soins extraordinaire de toutes ces fonctions est la fonction 5YS qui s’uti 
lise coane suit: MATI=SYSIA,E), et qui resoud le systeme ÀAÏ=B,. Mais le mieux est que la aatrice 
B peut etre de dimension 2; dans ce cas, la matrices X sera diaensionee come E et il sera re- 
solu autant de systemes qu'il y a de colonnes dans BE, 


Voila donc un large apercu de ce qu'il est possible de faire avec cette inconparable RON, [Ceux 
qui n'auraient pas encore compris ce que j'en pense peuvent relire l'article. 

Maintenant, le seul reproche que je ferais à ce aerveiileux outil, c’est son prix: aux alentours 
de {100 Francs, HP oblige .. 


Laurent ISTKIA 
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AUTRE MATÉRIEL. MICRO INFORMATIQUE 


COMMENT AVEZ-VOUS CONNU FFC FARIS CHGPFTER 
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AUTRE CLUE HF 
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Je souhaite adhérer au club FFC PARIS CHAFTER contormément aux slatuts de 
l'association. ÂU mieux de ma connaissance, je déclare avoir le droit de fournir 
tous les programmes et informations Que je vous enverrai (sans entreindre deg 
obligations de secret à l'égard d'autres Personnes Ou  organiemes) pour 
publication dans de journal de liaison, sans obligations ni responsabilité 
d'aucune sorte en cas d'utilisation frauduleuse) de la part des dirigeants du 
FFC FARIS CHÉFTER, 
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